Bonjour,
J'ai ce message d'erreur qui s'affiche a chaque fois que je lance ma macro et je ne sais pas comment corriger cela : Erreur d'execution "1004": Erreur definie par l'application ou par l'objet.
Voila ma macro :
Sub tri()
Dim i As Integer
Dim a As Integer
Dim j As Integer
i = 1
While Worksheets("Data").Cells(i, 1) <> ""
i = i + 1
Wend
a = i
For j = 1 To 10
While Worksheets("Data").Cells(i, 1).Value <> j
i = i - 1
Wend
Worksheets("Ref").Cells(j + 1, 3) = Worksheets("Data").Cells(i, 5) & "-" & Worksheets("Data").Cells(i, 3) & "-" & Worksheets("Data").Cells(i, 4)
Worksheets("Ref").Cells(j + 1, 2) = Worksheets("Data").Cells(i, 3)
i = a
Next
End Sub
Voila la ligne ou excel me mets une erreur : While Worksheets("Data").Cells(i, 1).Value <> j
Merci d'avance