concatener

[jad73]

Bonjour le forum
J'ai voulu concatener un fichier excel
20180404 b 3 6 7 8 11 17 29 30 32 33 35 41 44 55 57 59 65 66 67 70
avec cette formule
=A1&" "&B1&";"&C1&";"&D1&";"&E1&";"&F1&";"&G1&";"&H1&";"&I1&";"&J1&";"&K1&";"&L1&";"&M1&";"&N1&";"&O1&";"&P1&";"&Q1&";"&R1&";"&S1&";"&T1&";"&U1&";"&V1
mais voila le résultat
43194 b;3;6;7;8;11;17;29;30;32;33;35;41;44;55;57;59;65;66;67;70
la date "20180404" est devenu "43194"
comment faut-il modifier la formule pour que la date reste.
merci

 

[Staple1600]

Re

A toutes fins utiles
Ci-dessous la fonction précédente modifiée pour une concaténation horizontale ou verticale
Exemple de syntaxe:
'concaténation verticale
=CONCAT(A1:A20;"V")
'concaténation verticale avec choix du séparateur
=CONCAT(A1:A20;"V";"/")
'concaténation horizontale
=CONCAT(A1:F1;"H")

Function CONCAT(arr As Variant, Sens$, Optional Sep$ = ";")
With Application
    Select Case Sens
    Case Is = "H" 'plage horizontale
    CONCAT = Join(.Transpose(.Transpose(arr)), Sep)
    Case Is = "V" 'plage verticale
    CONCAT = Join(.Transpose(arr), Sep)
    End Select
End With
End Function