General discussion

Locked

Excel macro

By Diabolic ·
Hello I have problems running a macro in excel.
Anyone can help me correct the error?

If Liste_data(j, 3) = "ZPR2" Then
Select Case Liste_data(j, 1)
Case "E7"
Cells((i - 1) * (Nb_ListePrix) + j + 1, 1).Value = "E2" & Liste_data(j, 4) & Liste_data(j, 2) & Sheets("Main").Cells(i + 1, 2).Value
Cells((i - 1) * (Nb_ListePrix) + j + 1, Col_Montant).Value = arrond((Range("Data").Cells(Application.WorksheetFunction.Match(Cells((i - 1) * (Nb_ListePrix) + j + 1, 1), Sheets("Liste").Range("Data").Columns(1).Areas.Parent, 0), 10) + Range("Data").Cells(Application.WorksheetFunction.Match(Cells((i - 1) * (Nb_ListePrix) + j + 1, 1), Sheets("Liste").Range("Data").Columns(1).Areas.Parent, 0), 25)) / 1000, 2)
Case "E3"
Cells((i - 1) * (Nb_ListePrix) + j + 1, 1).Value = "E2" & Liste_data(j, 4) & Liste_data(j, 2) & Sheets("Main").Cells(i + 1, 2).Value
Cells((i - 1) * (Nb_ListePrix) + j + 1, Col_Montant).Value = arrond(Range("Data").Cells(Application.WorksheetFunction.Match(Cells((i - 1) * (Nb_ListePrix) + j + 1, 1), Sheets("Liste").Range("Data").Columns(1).Areas.Parent, 0), 13) * 1.1 / 1000, 2)
Cells((i - 1) * (Nb_ListePrix) + j + 1, Col_Table).Value = "701"
Cells((i - 1) * (Nb_ListePrix) + j + 1, Col_GA).Clear
Cells((i - 1) * (Nb_ListePrix) + j + 1, Col_Hier5).Clear
Case Else
Cells((i - 1) * (Nb_ListePrix) + j + 1, Col_Montant).Value = arrond(Range("Data").Cells(Application.WorksheetFunction.Match(Cells((i - 1) * (Nb_ListePrix) + j + 1, 1), Sheets("Liste").Range("Data").Columns(1).Areas.Parent, 0), 10) / 1000, 2)
End Select
Else
Cells((i - 1) * (Nb_ListePrix) + j + 1, Col_Montant).Value = arrond(Range("Data").Cells(Application.WorksheetFunction.Match(Cells((i - 1) * (Nb_ListePrix) + j + 1, 1), Sheets("Liste").Range("Data").Columns(1).Areas.Parent, 0), 11) / 1000, 2)
End If

the problem appears after the "else" line.

thank you

This conversation is currently closed to new comments.

0 total posts (Page 1 of 1)  
| Thread display: Collapse - | Expand +

All Comments

Back to IT Employment Forum
0 total posts (Page 1 of 1)  

Related Discussions

Related Forums