Supprimer les doublons

[vivi4]

Bonjour a tous,

j'ai un soucis que je n arrive pas à régler (faute de connaissance !): j'ai une liste composée des infos suivantes :
- N° d'identification
- Nom
- Prénoms

Il y a environ 4 000 lignes et je cherche à automatiser la suppression de doublons (meme noms, meme prénoms). Le but étant de savoir si pour un meme client, nous avons saisis 2 (ou +) numéros d'ID différents.

Pourriez vous m'aider svp.
A toutes fins utiles, je joins une partie du fichier.

Merci
vivi

 

[tototiti2008]

Re : Supprimer les doublons

Bonjour vivi4,

une possibilité pour se débarrasser des doublons :

 

[BOISGONTIER]

Re : Supprimer les doublons

Bonjour,

Sub supDoublonsTradi()
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
   [A1].Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2"), Order2:=xlAscending, Header:=xlGuess
   For i = [A65000].End(xlUp).Row To 2 Step -1
     If Cells(i, 2) = Cells(i - 1, 2) And _
       Cells(i, 3) = Cells(i - 1, 3) Then Rows(i).Delete
   Next i
   Application.Calculation = xlCalculationAutomatic
End Sub

JB

 

[vivi4]

Re : Supprimer les doublons

merci pour votre aide.
La solution filtre élaborée ne fonctionne pas (je ne dois pas avoir la bonne version excel)
pour la macro, all is good !!

merci bcp