Bonsoir a tous
je voudrais concaténer mes 150 premières cellules de ma ligne 1 ,
je ne veux pas les faire tous a la main cela prend trop de temps
merci de votre aide bonne soirée a bientôt ! ma formule concaténer sera mise en EU 1
j'accepte aussi une macro .
@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)
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
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;";")
@mapomme
Avez-vous usé d'un subterfuge de la sorte ?
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.