Tu crois que je n'ai pas testé avant de publier ma formulej'ai essayer mais ca ne marche pas
Oui, ça je le sais, j'ai pris soin de préciser, non ?j'ai la version 2016 et croyez moi ca ne marche pas du tout !
Staple à dit:PS: je précise que JOINDRE.TEXTE est disponible depuis Excel 2019
(à verifier)
Function CONCATH(r As Range, sep As String) As String
Dim vHR
vHR = Application.Transpose(r.Value)
CONCATH = Join(Application.Transpose(vHR), sep)
End Function
=concatH(A1:ET1;";")
=CONCATENER(A1;B1;C1;D1;E1;F1;G1;H1;I1;J1;K1;L1;M1;N1;O1;P1;Q1;R1;S1;T1;U1;V1;W1;X1;Y1;Z1;AA1;AB1;AC1;AD1;AE1;AF1;AG1;AH1;AI1;AJ1;AK1;AL1;AM1;AN1;AO1;AP1;AQ1;AR1;AS1;AT1;AU1;AV1;AW1;AX1;AY1;AZ1;BA1;BB1;BC1;BD1;BE1;BF1;BG1;BH1;BI1;BJ1;BK1;BL1;BM1;BN1;BO1;BP1;BQ1;BR1;BS1;BT1;BU1;BV1;BW1;BX1;BY1;BZ1;CA1;CB1;CC1;CD1;CE1;CF1;CG1;CH1;CI1;CJ1;CK1;CL1;CM1;CN1;CO1;CP1;CQ1;CR1;CS1;CT1;CU1;CV1;CW1;CX1;CY1;CZ1;DA1;DB1;DC1;DD1;DE1;DF1;DG1;DH1;DI1;DJ1;DK1;DL1;DM1;DN1;DO1;DP1;DQ1;DR1;DS1;DT1;DU1;DV1;DW1;DX1;DY1;DZ1;EA1;EB1;EC1;ED1;EE1;EF1;EG1;EH1;EI1;EJ1;EK1;EL1;EM1;EN1;EO1;EP1;EQ1;ER1;ES1;ET1)
Sub LaPetiteAstuce()
Dim r As Range, c As Range, s$
Set r = Range("A1:ET1")
For Each c In r
s = s & ";" & c.Address(0, 0)
Next
[EU1] = Mid(s, 2, 999)
End Sub
Bonjour @Staple1600
Fortiche mais pas surhomme non plus !Et vous avez céder à la tentation 573 fois