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