Supprimer Doublons

[spitfire378]

Bonjour, voila j'ai un tableau dans lequel se trouve des doublons, j'aimerai supprimer ces doublons en prenant comme critere le nom et le prenom des personnes se trouvant dans le tableau, mais avec la fonction de filtre élaboré je n'arrive pas a conserver l'ensemble de mon tableau moins les doublons mais que les deux colonnes nom prenom moins les doublons.

Si vous pouviez m'aider merci d'avance.

 

[Raja]

Re : Supprimer Doublons

Bonjour,

Tu as quelle version d'excel ?

 

[BOISGONTIER]

Re : Supprimer Doublons

Bonjour,

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

JB
Formation Excel VBA JB

 

[spitfire378]

Re : Supprimer Doublons

Je vous remercie, je test ca 🙂