Supprimer ligne entier si 2 valeurs identiques en colonne

Question

Je souhaiterai supprimer , en cas de doublon les lignes entières, comme exemple ci dessous J'utilise ce code ActiveSheet.UsedRange.RemoveDuplicates Columns:=5, Header:=xlYes Mais il conserve la ligne Que je je ne souhaite pas dans le résultat Merci de votre aide...

DanielC · Accepted Answer

Essaie :

Sub test()
Dim I As Long, Tabl() As Integer
ReDim Tabl(Application.CountA([E:E]))
For I = 1 To Application.CountA([E:E])
If Application.CountIf([E:E], Cells(I, 5)) > 1 Then
Tabl(I) = 1
End If
Next I
For I = Application.CountA([E:E]) To 1 Step -1
If Tabl(I) = 1 Then Rows(I).Delete
Next I
End Sub

Daniel

DanielC · Answer

A priori, c'est le fonctionnement correct. Il ne supprime qu'une des deux lignes identiques. Daniel...

DanielC · Answer

Oui. Est-ce que la plage est triée sur la colonne E ? Daniel...

BsAlv · Answer

Avec un fichier, c'est plus facile à montrer ... Ajoutez une colonne auxiliaire avec une formule qui detecte le premier des 2 valeurs identique, utilisez l'autofilter et supprimez les lignes filtrées...