Eliminer les doublons d'une liste

[fiona63]

Salut à tous !

Voila je souhaiterais repérer dans une liste de noms ceux qui sont en double (ou en triple).

Puis, "compresser" cette liste pour éliminer les doublons (ou triplons !).

Et, tout ca, en automatique....

J'ai mis en piece jointe un fichier pour plus de clarté,

Merci d'avance

 

[suistrop]

Re : Eliminer les doublons d'une liste

Hello,

1 soluce bete :

Sub cartman()
Z = 1
    For i = 1 To Range("A65536").End(xlUp).Row
    present = False
        For y = 1 To Range("B65536").End(xlUp).Row
            If Cells(i, 1) = Cells(y, 2) Then present = True
        Next y
        If present = False Then
            Cells(Z, 2) = Cells(i, 1)
            Z = Z + 1
        End If
    Next i
End Sub

 

[kjin]

Re : Eliminer les doublons d'une liste

Bonjour,
Avec le dico
A+
kjin

 

[BOISGONTIER]

Re : Eliminer les doublons d'une liste

Bonjour,

Avec le filtre élaboré ou formule.

Avec Dictionnary:

Sub doublon2()
    Set mondico = CreateObject("Scripting.Dictionary")
    For Each c In Range([A1], [A65000].End(xlUp))
      If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
    Next
    [C1].Resize(mondico.Count) = Application.Transpose(mondico.items)
End Sub

JB
Formation Excel VBA JB

 

[fiona63]

Re : Eliminer les doublons d'une liste

Merci beaucoup, la solution de suistrop me conviens très bien.

Je ne connaissais pas les filtres élaborés, pas mal....

Bonne journée