Code comparatif

[spitfire378]

bonjour a tous, j'ai deux colonnes A et B je dois supprimer les doublons de ces deux colonnes si par exemple la plage A2:B2 = A1:B1

J'ai donc créé ce bout de code :

Sub comparer2()

Dim i As Long

For i = 65000 To 1 Step -1
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2) Then Rows(i).Delete
Next i

End Sub

Mais il ne marche pas, si vous pouviez m'aider, merci d'avance.

 

[tototiti2008]

Re : Code comparatif

Bonjour spitfire,

ben si ça marche. le mieux serait sans doute de se limiter aux lignes remplies et d'arrêter ta boucle à la ligne 2 mais chez moi ça fonctionne.

 

[spitfire378]

Re : Code comparatif

En effet 😛 C'est juste qu'en fin de compte il n'y avait pas de doublons dans ce fichier donc j'avais l'impression que le code ne marchait pas.......... Merci a toi