Discussion :

[Onkas81]

Bonjour,
Je rencontre actuellement un petit problème (de débutant je suppose).
J'ai une colonne constituée de texte disons
titi
toto
titi
titi
tata
toto

Et j'aimerais utiliser une fonction sur cette colonne pour obtenir dans une seule cellule la concaténation des valeurs uniques (non vides) séparées par une virgule.
Soit pour l'exemple de ma colonne: titi, toto, tata

Est-ce possible via une fonction?
Merci d'avance,

[Daniel.C]

Bonjour,

Non, ce n'est pas une question de débutant. C'est même une formule compliquée et matricielle que tu demandes. En attendant que je l'écrive, tu peux te servir de :
Onglet Données, Supprimer les doublons.

[Daniel.C]

Si ta liste de noms est en A1:A100, en B1, écris :

=A1

En B2 et à recopier vers le bas, formule matricielle (à valider avec Ctrl+Maj+Entrée) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

==SIERREUR(INDEX($A$1:$A$100;EQUIV(0;NB.SI($B$1:B1;maliste);0));"")

[Onkas81]

Merci Daniel mais en fait ce n'est pas cela que je veux obtenir. Je veux le résultat du tri dans une seule cellule (les uniques séparés par des virgules), comme dans mon exemple.

[Daniel.C]

D'accord. Il n'y a pas de formule pour ça. Il faut écrire une fonction personnalisée. Je n'ai pas le temps avant ce soir, mais peut-être un autre répondeur pourra le faire.

[Daniel.C]

Mets ce code dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function Concat(Plage As Range) As String
    Dim Dico As Object, Txt As String, C As Range
    Application.Volatile
    Set Dico = CreateObject("Scripting.Dictionary")
    Txt = ""
    For Each C In Plage
        If Not Dico.exists(C.Value) Then
            Dico.Add C.Value, C.Value
            Txt = Txt & ", " & C.Value
        End If
    Next C
    Concat = Right(Txt, Len(Txt) - 2)
End Function

pour l'utiliser, mets dans une cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=concat(A1:A23)

ou la plage que tu soouhaites.