Suppressions doublons

badoum66

XLDnaute Nouveau
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,
 

Pièces jointes

  • Test doublons.xls
    14 KB · Affichages: 54
  • Test doublons.xls
    14 KB · Affichages: 51
  • Test doublons.xls
    14 KB · Affichages: 55

Paritec

XLDnaute Barbatruc
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
 

Pièces jointes

  • Test doublons_v2.zip
    9.5 KB · Affichages: 32

Cousinhub

XLDnaute Barbatruc
Re : Suppressions doublons

Bonsoir
bonsoir, cbea

une autre approche

Code:
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
 

Membres actuellement en ligne

Statistiques des forums

Discussions
312 023
Messages
2 084 713
Membres
102 637
dernier inscrit
TOTO33000