Concatenate special

centurion · 19 Juillet 2014

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 · 19 Juillet 2014

Re : Concatenate special

Bonjour

Code:

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

R@chid · 19 Juillet 2014

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() :

Code:

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

@ + +

centurion · 21 Juillet 2014

Re : Concatenate special

Bonjour @ tous,

Merci beaucoup !

Bonne journée
Centurion

Modeste geedee · 21 Juillet 2014

Re : Concatenate special

Bonsour®

R@chid à dit:
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

VB:

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;"/")

Concatenate special

centurion

XLDnaute Junior

Pièces jointes

chris

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

centurion

XLDnaute Junior

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

Discussions similaires