Suppressions doublons

cbea

XLDnaute Impliqué

• 25 Avril 2008

• #2

Re : Suppressions doublons

Bonsoir badoum66,

Voici une solution.

 

Pièces jointes

• Test doublons_v1.xls

  20 KB · Affichages: 73

Vote positif 0 Vote négatif

B

badoum66

XLDnaute Nouveau

• 25 Avril 2008

• #3

Re : Suppressions doublons

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 25 Avril 2008

• #4

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

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 25 Avril 2008

• #5

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

 

Vote positif 0 Vote négatif

cbea

XLDnaute Impliqué

• 25 Avril 2008

• #6

Re : Suppressions doublons

Bonsoir Paritec, bhbh et au forum,

Voici une autre solution.

 

Pièces jointes

• Test doublons_v3.xls

  22.5 KB · Affichages: 73

Vote positif 0 Vote négatif