Bonjour à tous,
Je suis débutant en VBA et j'essaye de créer un code qui me fait basiquement un tri puis renseigne "1" dans une cellule si les conditions sont remplies :
La ligne en surbrillance est: If Cells(i, 12).Value <> Cells(i - 1, 12).Value Then Cells(i, 11).Value = "1"
Problème: ce code me renvoie l'erreur 1004: "erreur définie par l'application ou par l'objet" (j'ai l'impression qu'il s'agit d'une erreur due au ".Select")
Quelqu'un saurait-il m'aiguiller vers la bonne solution ?
Merci à tous ceux qui se pencheront sur mon problème
Bonne journée,
Shaak33
Je suis débutant en VBA et j'essaye de créer un code qui me fait basiquement un tri puis renseigne "1" dans une cellule si les conditions sont remplies :
Code:
Sub test()
Dim i As Long
Range("A1:Z2000").Select
Selection.Sort Key1:=Range("L1;L2000"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If Cells(i, 12).Value <> Cells(i - 1, 12).Value Then Cells(i, 11).Value = "1"
Next i
End Sub
La ligne en surbrillance est: If Cells(i, 12).Value <> Cells(i - 1, 12).Value Then Cells(i, 11).Value = "1"
Problème: ce code me renvoie l'erreur 1004: "erreur définie par l'application ou par l'objet" (j'ai l'impression qu'il s'agit d'une erreur due au ".Select")
Quelqu'un saurait-il m'aiguiller vers la bonne solution ?
Merci à tous ceux qui se pencheront sur mon problème
Bonne journée,
Shaak33