Supprimer lignes qui n'ont pas de doublon en VBA
b
Bonjour,
j'ai quatre colonnes A ,B,C,D
A B C D
LAURENT PRESENT 12 janvier LB01
PATRICK PRESENT 15 janvier PC01
LAURENT PRESENT 12 janvier LB01
ROBERT PRESENT 22 janvier RB01
dans la colonne D sont leur matricule
comment supprimer des lignes quand dans la colonne D, la valeur de la cellule n'est présente qu'une fois dans le classeur .
ici, la colonne 2 et 4 disparaitraient.
merci de votre concours
Bonjour
Code à essayer.
Sub test()
Dim plage As Range
Dim i As Integer, nb As Integer
Set plage = Range("D3:D" & Range("D65536").End(xlUp).Row)
For i = Range("D" & Rows.Count).End(xlUp).Row To 3 Step -1
nb = WorksheetFunction.CountIf(plage, Range("D" & i))
If nb = 1 Then Range("D" & i).EntireRow.Delete
Next i
End SubSi ok, click sur le petit v en haut à droite pour cloturer le fil
Crdlt