Supprimer les doublons

Bonsoir,

Quelle formule utiliser pour faire ressortir les doublons d'un fichier clients.

https://www.excel-pratique.com/~files/doc/Supprimer_doublons.xls

Dans le fichier joint, je n'ai mis que le nom, prénom et date de naissance mais pour plus de sécurité je posséde également pour chaque client du lieu de naissance et de l'adresse.

Merci

Adrien

Bonsoir

as tu pensé a faire une recherche sur le forum avec le mot doublons

il y a des chance que tu trouve ton bonheur

Cordialement

Bonsoir Adrien et à tous,

En filtrant à coté sans doublon, te reste à copier la bonne liste à sa place.

Sub SansDoublons()
Dim Lg As Long
    Lg = [A65536].End(xlUp).Row
    Range("a1:d" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "e1:e2"), CopyToRange:=Range("g1:j1"), Unique:=True
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc/Supprimer_doublons2.xls

Claude.

édit: ce code fait tout d'un coup

Sub SansDoublons2()
Dim Lg As Long
Application.ScreenUpdating = False
    Lg = [A65536].End(xlUp).Row
    Range("a1:d" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "e1:e2"), CopyToRange:=Range("g1:j1"), Unique:=True
    Range("g1:j" & Lg).Cut Destination:=Range("a1")
End Sub

Bonsoir,

J'ai réussi à traiter mon fichier. Il en avait besoin 68 doublons sur 4816 lignes.

Merci, je mets la formule au frais.

A+

Adrien