Suppressions doublons

[badoum66]

Bonjour,

Dans le fichiers excell joint, je voudrais supprimer les lignes qui comportent des doublons dans la colonne C. en programmation VBA
Dans cette exemple, seul 3 lignes sont à conserver.


Merci,

 

[cbea]

Re : Suppressions doublons

Bonsoir badoum66,

Voici une solution.

 

[badoum66]

Re : Suppressions doublons

Merci, c'est exactement ce que je voulais
Bon WE

 

[Paritec]

Re : Suppressions doublons

Bonjour Badoum, Cebea je forum,
Ta macro m'intéresse alors j'ai éssayé mais y a un truc si tu as une ligne au milieu de ta liste qui a une référence différente il reste des doublons
exemple en retour
a+
bonne soirée
Papou

 

[Cousinhub]

Re : Suppressions doublons

Bonsoir
bonsoir, cbea

une autre approche

Sub Macro5()
    Range("A1:D" & [A65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    For i = [A65000].End(xlUp).Row To 3 Step -1
        If Cells(i, 1).EntireRow.Hidden = True Then Cells(i, 1).EntireRow.Delete
    Next i
    ActiveSheet.ShowAllData
End Sub

 

[cbea]

Re : Suppressions doublons

Bonsoir Paritec, bhbh et au forum,

Voici une autre solution.