Comment faire pour supprimer les doublons?

Bonjour,

j'ai une macro qui fait un certain traitement, et qui me donne en output une liste (feuille jointe), sauf que dans cette liste y'a des lignes identiques.

est ce que vous pouvez me dire comment je peux faire pour supprimer les doublons, en laissant qu'une seule ligne biensur?

Merci

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

Bonsoir,

dans ton cas, le filtre élaboré semble la solution la plus adaptée....

Tu rajoutes un titre en colonne E (Type, par exemple)

Tu copies les en-têtes de colonnes (De A1 à E1), et tu les colles en G1, par exemple....

Tu sélectionnes de A1 à E59 (pour ton fichier exemple, sinon, jusqu'en bas....)

Tu fais Données/Filtrer/Filtre élaboré....

Dans la case Plages, tu laisses ta zone...

Au dessus, tu sélectionnes "Copier vers un autre emplacement"

Dans la case "Zone de critères", tu laisses vide

Dans la case "Copier dans", tu sélectionnes tes en-têtes (de G1 à K1, dans ton exemple)...

Valides la coche "Extraction sans doublons"

Clique sur OK, tu auras tes lignes sans doublons.....

Merci mais je dois le faire avec une macro, qui soit lancer apres le remplissage de la liste.

Bon j'ai trouvé une macro qui me convient a merveille, là voila si ça peut aider quelqu'un:

Sub supdoublonsOrdre()
Dim champ As Range
Dim champ1 As Range
Dim i As Long

  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  Set champ = Range("A2:A" & [A65000].End(xlUp).Row)
  Set champ1 = Range("B2:B" & [A65000].End(xlUp).Row)
  For i = [A65000].End(xlUp).Row To 1 Step -1
    If Application.CountIf(champ, Cells(i, 1)) > 1 And Application.CountIf(champ1, Cells(i, 2)) > 1 Then Rows(i).Delete
  Next i
  Application.Calculation = xlAutomatic
End Sub

bon courage, et MERCI a tout le monde

Bonsoir,

La méthode, je te l'avais donné, reste juste à utiliser l'enregistreur de macro......

Pour info, avec ton code, et le mien, j'ai un léger différentiel, dans les résultats obtenus....

Regarde le fichier joint, dans l'onglet "nsqualli", ton code (où j''ai rajouté un tri)

dans l'onglet Félix, le mien

Nous n'obtenons pas les mêmes résultats.....

A toi de voir....

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

felix a écrit :

Bonsoir,

La méthode, je te l'avais donné, reste juste à utiliser l'enregistreur de macro......

Pour info, avec ton code, et le mien, j'ai un léger différentiel, dans les résultats obtenus....

Regarde le fichier joint, dans l'onglet "nsqualli", ton code (où j''ai rajouté un tri)

dans l'onglet Félix, le mien

Nous n'obtenons pas les mêmes résultats.....

A toi de voir....

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

oui merci, c bon, c'est que moi je testais avec une feuille ou j'ai supprimer bcp d'enregistrement pour pouvoir faire une execution pas a pas et que ça ne me prend pas bcp de temps.

Merci beaucoup