Ne concaténer que sous condition

[phil_]

Bonjour.

Je suis nouveau venu et malgré mes recherches sur le forum je n'ai pas trouvé la solution à mon souci.

Voilà :
Plusieurs cellules (6) contiguës contiennent des valeurs en texte et je souhaite dans une cellule récapitulative, ne concaténer que les valeurs différentes.
A B C D.......... G
1 TOTO TITI TOTO TUTU TOTO - TITI - TUTU

je ne sais si je dois utiliser une combinaison de si ou une autre fonction.

Merci pour votre aide.

 

[pierrejean]

Re : Ne concaténer que sous condition

Bonjour phil

Et bienvenue sur XLD

Avec une fonction personnalisée et en supposant avoir bien compris ton problème

 

[tbft]

Re : Ne concaténer que sous condition

Bonjour

Un essai

Function concatener_sans_doublon(entree)
Dim nb As Long, i As Long, j As Long
Dim res() As Variant
  nb = UBound(entree.Value, 2) - 1
  ReDim res(nb)
  For i = 1 To nb + 1
    res(i - 1) = entree(1, i).Value
  Next i
  For i = 0 To nb - 1
    For j = i + 1 To nb
      If res(i) = res(j) Then res(j) = ""
    Next j
  Next i
  concatener_sans_doublon = Join(res, "")
End Function

Note Bonjour pierrejean le temps que je ponde le code t'est déjà passé...

 

[phil_]

Re : Ne concaténer que sous condition

Merci pour vos réponse rapide.

Oui c'est tout à fait celà, concaténer en supprimant les doublons et en séparant les mots par un -

Encore merci.

 

[tbft]

Re : Ne concaténer que sous condition

Re

pour séparer par un -
il faut modifier
concatener_sans_doublon = Join(res, "")
par
concatener_sans_doublon = Join(res, "-")

 

[pierrejean]

Re : Ne concaténer que sous condition

Re

Salut tbft

Version avec le - intermediaires

 

[PascalXLD]

Re : Ne concaténer que sous condition

Bonjour

Un petit tour sur ce fil juste pour saluer un nouveau rennais sur le forum et faire un coucou à Pierrejean (cela fait plaisir de te voir)

 

[pierrejean]

Re : Ne concaténer que sous condition

Re

Merci Pascal

 

[tototiti2008]

Re : Ne concaténer que sous condition

Bonjour à tous,

Pour une proposition en formule :

 

[phil_]

Re : Ne concaténer que sous condition

Bonjour à tous.

Encore merci pour vos réponses. Super, çà correspond tout à fait à ma recherche.