Lister les noms différents d'une liste

[herve80]

Bonjour,

D'abord, les remerciements habituels (vous êtes les meilleurs bla bla).

Voilà ma question :

Soit dans la colonne A une liste de noms dont certains se répètent.
Je voudrais qu'Excel me mette en colonne B la liste des noms différents.

Ex : en colonne A on a : A, B, C, A, D
en colonne B, Excel mettra : A B C D (et non le A, déjà répété une fois).

Si vous aviez la solution...

Bonne journée à tous.

 

[Sofhy]

Re : Lister les noms différents d'une liste

Bonjour herve80,

Le filtre élaboré devrait répondre à ton besoin.

- Données - Filtre - Filtre élaboré
- Cocher "copier vers un autre emplacement"
- Plage : colonne A
- Copier dans B1
- Cocher Extraction sans doublon

A++
Sofhy

 

[laetitia90]

Re : Lister les noms différents d'une liste

bonjour herve80
par macro!!

Sub es()
 Dim c As Variant, m As Object
   Application.ScreenUpdating = False
   Set m = CreateObject("Scripting.Dictionary")
   For Each c In Range("a2", Cells(Rows.Count, "a").End(xlUp))
   m(c.Value) = IIf(m.Exists(c.Value), m(c.Value) + 1, 1)
   Next c
   [b2].Resize(m.Count, 1) = Application.Transpose(m.keys)
End Sub

ps: bonjour Sofhy pas rafraichi

 

[herve80]

Re : Lister les noms différents d'une liste

bonjour herve80
par macro!!

Sub es()
 Dim c As Variant, m As Object
   Application.ScreenUpdating = False
   Set m = CreateObject("Scripting.Dictionary")
   For Each c In Range("a2", Cells(Rows.Count, "a").End(xlUp))
   m(c.Value) = IIf(m.Exists(c.Value), m(c.Value) + 1, 1)
   Next c
   [b2].Resize(m.Count, 1) = Application.Transpose(m.keys)
End Sub

ps: bonjour Sofhy pas rafraichi

Bonjour laetitia90,

C'est tout simplement génial. Je suis bluffé par cette macro.
Je te remercie du fond du coeur.

Bonne journée à toi.

 

[Calvus]

Re : Lister les noms différents d'une liste

Bonjour à tous,

Une solution par formule.

Bonne journée.

 

[david84]

Re : Lister les noms différents d'une liste

Bonjour,
en se basant sur le fichier exemple de Calvus, ci-joint 3 possibilités par formules, dont la 3ème ne nécessite pas de laisser la 1ère ligne vide.
La liste de la colonne A est nommée et accepte les cellules vides.
A+

 

[Staple1600]

Re : Lister les noms différents d'une liste

Bonjour à tous


Du Sofhy, sauce VBA

Sub a_Sofhy_Suggestion_In_VBA()
With Range("A1:A6")
    .Sort _
        Key1:=Range("A2"), _
        Order1:=1, Header:=1, _
        OrderCustom:=1, _
        MatchCase:=False, _
        Orientation:=1
    .AdvancedFilter _
        Action:=2, _
        CopyToRange:=Range("B1"), _
        Unique:=True
End With
End Sub

Basée sur les données d'hervé80

 

[Chubby]

Re : Lister les noms différents d'une liste

Bonjour Hervé, Calvus, David et Staple, sans oublier les zotres,

Merci encore pour votre partage si précieux. Je voudrais rebondir sur le travail de David pour savoir comment je pourrais extraire les données qui seraient notées en lignes et non en colonnes.
Si jamais ça vous, ou te dit...
Merci à toi
Chubby