XL 2013 Listing de plusieurs colonnes

[maan]

Bonjour à tous,

Voici mon souci, j'ai trois colonnes avec dedans du texte (on va dire pour l'exemple que cela est le nom de clients), mon but est que dans une colonne je puisse lister tous les clients contenus dans ces trois colonnes (et de façon unique, car ils peuvent apparaître plusieurs fois dans les trois colonnes.

Avez-vous une idée pour faire cela via macro ?

Je vous joins un fichier Excel pour expliquer tout cela, c'est souvent plus simple à comprendre.

Encore merci d'avance,

 

[gosselien]

Re : Listing de plusieurs colonnes

Bonjour,

un test à adapter à tes colonnes:

Sub ListeSansDoublons()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range("D17, F1:F7, H1:H7") ' à adapter !!!
If Not MonDico.Exists(c.Value) Then
MonDico(c.Value) = c.Offset(, 1).Value
Else
MonDico(c.Value) = MonDico(c.Value) ' & "," & c.Offset(, 1).Value
End If
Next c
[D14].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.Keys)
End Sub

 

[maan]

Re : Listing de plusieurs colonnes

En un mot : MERCI !

Mon problème est donc résolu Et encore merci gosselien !