Bonjour à toutes et à tous,
Je ne sais pas pourquoi ma macro s'est mise à planter! Elle marchait très bien et puis pouf!! ça a planté. C'est une macro pour trier dans l'ordre croissant.
Et puis j'ai écris un code pour pouvoir additionner Hi et Hi+1 si Ai = Ai+1 et supprimer la ligne i+1 et une chose qui révéle très bien mon niveau en VBA s'est produite.... ça ne marche pas!!
Aidez moi s'il vous plait!!!
Je ne sais pas pourquoi ma macro s'est mise à planter! Elle marchait très bien et puis pouf!! ça a planté. C'est une macro pour trier dans l'ordre croissant.
Code:
Sheets("suivi commande").Range("A7:L200").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Et puis j'ai écris un code pour pouvoir additionner Hi et Hi+1 si Ai = Ai+1 et supprimer la ligne i+1 et une chose qui révéle très bien mon niveau en VBA s'est produite.... ça ne marche pas!!
Code:
Private Sub CommandButton1_Click()
Dim i As String
Sheets("suivi commande").Range("A7:L200").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
For i = 7 To 200
If Range("A(i)") = Range("A(i + 1)") Then
Range("H(i)") = Range("H(i)") + Range("H(i + 1)")
Range("H(i + 1)").Delete = True
End If
Next
End Sub
Aidez moi s'il vous plait!!!