Supprimer les doublons

vivi4 · 26 Mai 2008

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 · 26 Mai 2008

Re : Supprimer les doublons

Bonjour vivi4,

une possibilité pour se débarrasser des doublons :

BOISGONTIER · 26 Mai 2008

Re : Supprimer les doublons

Bonjour,

Code:

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 · 26 Mai 2008

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

Supprimer les doublons

vivi4

XLDnaute Junior

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

vivi4

XLDnaute Junior

Discussions similaires