VBA et Doublon

Bonjour à tous,

j'ai un petit probleme,

en effet, j'aimerai supprimer des doublons de manière un peu spéciale, je m'explique:

J'aimerais retranscrire le message suivant.

Si a=a+1 et d=d+1 alors a+1 et d+1 doivent être supprimés.

Sachant que a c'est les valeurs des cellules dans la colonne a

D c'est les valeurs des cellules dans la colonne D.

Pour ça j'ai commencé à écrire ca:

Sub teste4()

Dim i As Long

For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 4) = Cells(i - 1, 4) Then Rows(i).Delete

Next i

End Sub

mais ca ne marche pas, c'est pourquoi je vous demande si vous avez une petite idée... !!

Bonjour,

çà coince parce que tu boucle toujours sur la dernière ligne

ajoute une variable (ici Lg)

de plus, comme tu compare cells avec cells-1

il faut arrêter à la 2ème ligne (si a2=a1) et non si(a1=a0), qui provoque une erreur, la ligne 0 n'existant pas

Sub teste4()
Dim Lg As Long, i As Long
    Lg = Range("A65536").End(xlUp).Row
    For i = Lg To 2 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 4) = Cells(i - 1, 4) Then Rows(i).Delete
    Next i
End Sub

Amicalement

Claude