Concatener sans doublon

[mawua]

Bonjour tous le monde.

Ma question du jour est:
Peut -on concatener sans doublon sans vba ?
Ex.:
Dans une colonne j'ai:
A
B
B
C
A
D
C

Je voudrais obtenir en A1:
A B C D

 

[Hervé]

Re : Concatener sans doublon

bonjour

désolé, mais une réponse en vba par une fonction personnalisé en attendant les formulistes.

Public Function concaSD(cellules As Range) As String
Dim c As Range
Dim data As New Collection
Dim el
Dim t As String

On Error Resume Next
For Each c In cellules
    data.Add c, CStr(c)
Next c
On Error GoTo 0

For Each el In data
    t = t & el
Next el

concaSD = t
    
End Function

salut

 

[mjo]

Re : Concatener sans doublon

Bonjour,

Je n'ai pas trouvé de solution sans colonne supplémentaire.

Les données de A1 à A7
En B1 : =A1
En B2 : =SI(NB.SI(A$1:A1;A2)=0;B1&A2;B1)
formule à copier jusqu'en B7

mjo

 

[mawua]

Re : Concatener sans doublon

Bonjour Hervé, Bonjour Mjo !

Merci pour vos réponses.
Vos deux solutions sont toutes deux efficaces, mais je dois bien avouer que le vba l'emporte haut la main en ce qui concerne l'intégration de la formule à une base de donnée par exemple.

 

[mjo]

Re : Concatener sans doublon

Re,

Il faut savoir ce que l'on veut.
Moi j'ai répondu à la question : concatener sans doublon sans vba

Si on adapte la formule à une plage variable (NBVAL), que la colonne supplémentaire est masquée et qu'on récupère la dernière valeur par un RECHERCHE, la solution par formule est tout aussi valable.

mjo

 

[mawua]

Re : Concatener sans doublon

Tu as raison.
Ce serait bien mal venu de critiquer les propositions de solution qui me sont faite alors que moi même je suis incapable de les pondre.
Sache que je n'ai pas voulu remettre en cause la pertinence de ta réponse.
Merci encore et encore merci 🙂.