XL 2019 concatener 150 cellules sur une ligne

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2022

• #2

Bonsoir @LEPATOCHE , le fil

1) touche F5 -> EU1
2) y saisir cette formule
=JOINDRE.TEXTE(";";VRAI;A1:ET1)

NB: fonctionne sur les versions récentes d'Excel

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 14 Octobre 2022

• #3

je ne comprend pas Staple 1600 ! autre chose a me proposer ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2022

• #4

Re

@LEPATOCHE
Tu ne comprends pas quoi ? Tu as testé au moins ?

Appuie sur la touche F5 pour te rendre sur la cellule EU1
(ou sélectionne-la manuellement)
puis saisis dans EU1 la formule que je te propose

Tu auras alors en EU1 la concaténation des 150 cellules de la ligne 1
(en partant de A1)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2022

• #5

Re

@LEPATOCHE (précisions)
1) Donc tu appuies sur F5
un boite de dialogue va alors s'afficher
Dans le champ Référence:
Tu saisis: EU1
Puis tu cliques sur [OK]
Tu retrouveras alors dans la cellule EU1
Il te suffit de saisir (ou de copier/coller) la formule que j'ai posté dans mon premier message.

Résultat obtenu
la cellule EU1 contiendra la concaténation des cellules A1:ET1
(en ignorant les cellules vides, si il y en a)

PS: je précise que JOINDRE.TEXTE est disponible depuis Excel 2019
(à verifier)

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 14 Octobre 2022

• #6

j'ai essayer mais ca ne marche pas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2022

• #7

Re

@LEPATOCHE

j'ai essayer mais ca ne marche pas

Cliquez pour agrandir...

Tu crois que je n'ai pas testé avant de publier ma formule 🙄

Quelle est ta version d'Excel ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2022

• #8

Re

@LEPATOCHE
Pour te convaincre que cela fonctionne, voir la copie d'écran ci-dessous

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 14 Octobre 2022

• #9

j'ai la version 2016 et croyez moi ca ne marche pas du tout !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2022

• #10

Re

@LEPATOCHE

j'ai la version 2016 et croyez moi ca ne marche pas du tout !

Cliquez pour agrandir...

Oui, ça je le sais, j'ai pris soin de préciser, non ?

Staple à dit:

PS: je précise que JOINDRE.TEXTE est disponible depuis Excel 2019
(à verifier)

Cliquez pour agrandir...

NB: ma copie d'écran prouve bien que cela fonctionne sur mon Excel 365, non ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2022

• #11

Re

@LEPATOCHE
Tu as mis Excel 2019 comme préfixe à ta discussion
Sur cette information que je suis basée pour proposer ma formule

Et voici la confirmation de Microsoft

JOINDRE.TEXTE (JOINDRE.TEXTE, fonction) - Support Microsoft

La fonction JOINDRE.TEXTE combine le texte à partir de plusieurs plages et/ou chaînes, et inclut un séparateur que vous spécifiez entre chaque valeur de texte à combiner. Si le séparateur est une chaîne de texte vide, cette fonction concatène effectivement les plages.

support.microsoft.com

Donc édites le titre de ta discussion et indique : Excel 2016

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2022

• #12

@LEPATOCHE

Avec cette fonction VBA personnalisée, cela fonctionnera sur ton PC

VB:

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

En EU1, saisir la formule ci-dessous
=concatH(A1:ET1;";")

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Octobre 2022

• #13

Bonsoir à tous 🙂,

Et pourquoi pas ? 😱😄😜:

VB:

=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)

C'est pour rire mais ça fonctionne très bien !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2022

• #14

Bonjour le fil

@mapomme
Avez-vous usé d'un subterfuge de la sorte ?

Spoiler: easy way

VB:

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

Ou à minuit et 16 minutes, une irrepressible envie de caresser votre clavier s'est-elle emparée de vous ?
Et vous avez céder à la tentation 573 fois 😱

Si tel est le cas, j'admire votre endurance digitale. 😉

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Octobre 2022

• #15

Staple1600 à dit:

Bonjour le fil

@mapomme
Avez-vous usé d'un subterfuge de la sorte ? ...

Cliquez pour agrandir...

Bonjour @Staple1600 🙂

Ai-je une pogne à caresser mon p'ti clavier à minuit et 16 minutes ?

Staple1600 à dit:

Et vous avez céder à la tentation 573 fois

Cliquez pour agrandir...

Fortiche mais pas surhomme non plus !

 

Vote positif 0 Vote négatif