Suprimer ligne

[MASSJIPE]

Bonjour à tous
Comment faire automatiquement pour supprimer des ligne avec le meme contenu (doublon)et ca sur plusieurs ligne (1000) et sur deux colognes A B
Merci

 

[MASSJIPE]

Re : Suprimer ligne

Bonjour JM
je doit supprimer sur les deux colognes A et B à la fois
merci

 

[MASSJIPE]

Re : Suprimer ligne

J Marcel
J'ai trouvé ça
Sub supprDoublons()
'suppression des doublons dans la colonne A
Range("A2:A526").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Et ça fonctionne bien