Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel concatener en vba

concatener en vba

30 réponses
Avatar
andre
Bonjour,
j'aurais besoin d'un petit coup de main
dans un programme excel j'ai plusieurs lignes
de A1 a AZ (soit 51 col)
le but est de recuperer par concatener
la totalite des infos de ligne A1 ,
dans la cellule (ex A10)
ca doit ressembler a ceci :
("a1","a2",....."az");
voici un petit bout de code que j'ai trituré
Range("A4").Select
For x = 1 To 51 'derniere colonne = AZ donc 51
' concatener = (" & Cells(x, 1) & "," etc juqu'a AZ puis a la
derniere cellule ");
Next
voila si vous auriez une solution
je suis preneur
merci bon dimanche

--
André
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Jacquouille
Bonjour
------
Sub concaténer()
[A4] = [a1] & [b1] & [c1] & [d1] & [e1] & [f1] & [g1] & [h1] & [i1] & [j1]
End Sub
--------------


Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"andre" a écrit dans le message de groupe de discussion :
569b9ed6$0$3056$

Bonjour,
j'aurais besoin d'un petit coup de main
dans un programme excel j'ai plusieurs lignes
de A1 a AZ (soit 51 col)
le but est de recuperer par concatener
la totalite des infos de ligne A1 ,
dans la cellule (ex A10)
ca doit ressembler a ceci :
("a1","a2",....."az");
voici un petit bout de code que j'ai trituré
Range("A4").Select
For x = 1 To 51 'derniere colonne = AZ donc 51
' concatener = (" & Cells(x, 1) & "," etc juqu'a AZ puis a la
derniere cellule ");
Next
voila si vous auriez une solution
je suis preneur
merci bon dimanche

--
André


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
andre
Jacquouille avait écrit le 17/01/2016 :
Bonjour
------
Sub concaténer()
[A4] = [a1] & [b1] & [c1] & [d1] & [e1] & [f1] & [g1] & [h1] & [i1] & [j1]
End Sub


bonjour Jacques
ravi de te lire
en fait c'est presque cela (presque je dis)
ex en ligne 2 j'ai des valeurs comme ceci S25R N23A S12R etc
a la fin de la concatenation je desire
("S25R","N23A","S12R",......."N24A");
ses lignes en fait je les insere dans un tableau Aray (javascript)

--
André
Avatar
andre
il faut boucler sur les cellules puis tester la der (AZ)
pour terminer par ");

--
André
Avatar
Jacquouille
Re
Et bien, tu adaptes, tu adaptes...
Sub concaténer()
[A4] = [a1] & [b1] & [c1] & [d1] & [e1] & [f1] & [g1] & [h1] & [i1] & [j1]
End Sub

peut devenir:
[A4]=[A1] & "," & [A2] & "," .....&");"

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"andre" a écrit dans le message de groupe de discussion :
569ba985$0$3312$

il faut boucler sur les cellules puis tester la der (AZ)
pour terminer par ");

--
André


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
andre
Jacquouille avait prétendu :
Re
Et bien, tu adaptes, tu adaptes...
Sub concaténer()
[A4] = [a1] & [b1] & [c1] & [d1] & [e1] & [f1] & [g1] & [h1] & [i1] & [j1]
End Sub

peut devenir:
[A4]=[A1] & "," & [A2] & "," .....&");"


plutot
= ("A1","A2",......"AZ");
pour toutes mes lignes
j'ai calculé que je passe une nuit blanche a tapoter tout ca
je vais attendre les specialistes

--
André
Avatar
Jacquouille
Merci pour le "spécialiste".
Bonne soirée

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"andre" a écrit dans le message de groupe de discussion :
569bafe1$0$3859$

Jacquouille avait prétendu :
Re
Et bien, tu adaptes, tu adaptes...
Sub concaténer()
[A4] = [a1] & [b1] & [c1] & [d1] & [e1] & [f1] & [g1] & [h1] & [i1] & [j1]
End Sub

peut devenir:
[A4]=[A1] & "," & [A2] & "," .....&");"


plutot
= ("A1","A2",......"AZ");
pour toutes mes lignes
j'ai calculé que je passe une nuit blanche a tapoter tout ca
je vais attendre les specialistes

--
André


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
andre
Jacquouille a utilisé son clavier pour écrire :
Merci pour le "spécialiste".


tu es comme moi
les neuronnes un peu gelée par cette meteo hivenale
je pioche sur un code du genre :
for i = 1 to 52
cells(cell.Row, 1) = cells(cell.Row, 1) & Cells(cell.Row, i) & ","
next
relis bien ma demande Jacques
tu arrives quand tu veux a nous sortir du code
au fait papa noel t'a livre 2007
j'y arrive pas a pas

--
André
Avatar
andre
le code la fonctionne
For x = 1 To 51 'derniere colonne = AZ donc 51

Cells(4, 1) = Cells(4, 1) & "" & Cells(1, x)

Next
seul defaut il me manque les doubles cotes

--
André
Avatar
Péhemme
Bonsoir André,

Une boucle du genre :
Dim Concaténer as String
For i = 1 To 52
Concaténer = Concaténer & .Cells(0,i) & ";"
Next i

À adapter.
Je n'ai rien testé.
Bonne soirée
Michel



"andre" a écrit dans le message de groupe de discussion :
569bdaaf$0$9240$

Jacquouille a utilisé son clavier pour écrire :
Merci pour le "spécialiste".


tu es comme moi
les neuronnes un peu gelée par cette meteo hivenale
je pioche sur un code du genre :
for i = 1 to 52
cells(cell.Row, 1) = cells(cell.Row, 1) & Cells(cell.Row, i) & ","
next
relis bien ma demande Jacques
tu arrives quand tu veux a nous sortir du code
au fait papa noel t'a livre 2007
j'y arrive pas a pas

--
André
Avatar
andre
Le 17/01/2016, Péhemme a supposé :
Bonsoir André,

Une boucle du genre :
Dim Concaténer as String
For i = 1 To 52
Concaténer = Concaténer & .Cells(0,i) & ";"
Next i

À adapter.
Je n'ai rien testé.
Bonne soirée
Michel


bsr Michel
j'ai ce code qui fonctionne
Sub tabl_aray()
For x = 1 To 52 'derniere colonne = AZ donc 51
Cells(4, 1) = Cells(4, 1) & "" & "," & "" & Cells(1, x)
Next
For x = 1 To 52
Cells(5, 1) = Cells(5, 1) & "" & "," & "" & Cells(2, x)
Next
For x = 1 To 52
Cells(6, 1) = Cells(6, 1) & "" & "," & "" & Cells(3, x)
Next
End Sub
le probleme entre 2 valeurs je souhaite avoir : ","
et la ca bug

--
André
1 2 3