Concatenate special

[centurion]

Bonjour les amis,

Ligne A :
Concatenate avec / comme separateur, sauf pour le dernier mot =
Europe Lisbonne Benfica Football
Europe/Lisbonne/Benfica/Football

Ligne B :
Si je recopie la formule vers le bas en supposant que football manque
Europe Lisbonne Benfica
Europe/Lisbonne/Benfica/

Comment écrire la formule pour supprimer le dernier /
SVP, voir le fichier joint.

En vous remerciant par avance
Cordialement
Centurion

 

[chris]

Re : Concatenate special

Bonjour

=D1&SI(E1<>"";"/"&E1&SI(F1<>"";"/"&F1&SI(G1<>"";"/"&G1;"");"");"")

 

[R@chid]

Re : Concatenate special

Bonsoir @ tous,
Bises à Chris
Si tu peux installer la macro complémentaire MoreFunc tu peux bénéficier de la fonction MCONCAT() :

=MCONCAT(DECALER(D1;;;;NBVAL(D1:J1));"/")

@ + +

 

[centurion]

Re : Concatenate special

Bonjour @ tous,

Merci beaucoup !

Bonne journée
Centurion

 

[Modeste geedee]

Re : Concatenate special

Bonsour®

Si tu peux installer la macro complémentaire

si tu ne peux pas
alors


cas 1 : formule
nombre d'éléments constant :
=GAUCHE(CONCATENER(D1;"/";E1;"/";F1;"/";G1);NBCAR(D1&E1&F1&G1)+NBVAL(D1:G1)-1)

cas 2 : une petite fonction personnalisée
nombre d'éléments variables (vertical ou horizontal, plage nommée), tient compte aussi des éléments vides

Function ConcatSpec(target As Range, separateur As String) As String
Dim temp As String, cell As Range
temp = ""
For Each cell In target
If cell <> "" Then temp = temp & cell.Text & Left(separateur, 1)
Next
ConcatSpec = Left(temp, Len(temp) - 1)
End Function

Usage :
=ConcatSpec(plageUnique;"/")