Concatenate special

chris

XLDnaute Barbatruc

• 19 Juillet 2014

• #2

Re : Concatenate special

Bonjour

Code:

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

 

Dernière édition: 19 Juillet 2014

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 19 Juillet 2014

• #3

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

@ + +

 

Vote positif 0 Vote négatif

centurion

XLDnaute Junior

• 21 Juillet 2014

• #4

Re : Concatenate special

Bonjour @ tous,

Merci beaucoup !

Bonne journée
Centurion

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 21 Juillet 2014

• #5

Re : Concatenate special

Bonsour®

R@chid à dit:

Si tu peux installer la macro complémentaire

Cliquez pour agrandir...

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

 

Pièces jointes

• Capture.jpg

  28.4 KB · Affichages: 47
• Capture.jpg

  28.4 KB · Affichages: 59

Dernière édition: 21 Juillet 2014

Vote positif 0 Vote négatif