concatener en vba

Le
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é
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #26384604
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
andre
Le #26384606
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é
andre
Le #26384610
il faut boucler sur les cellules puis tester la der (AZ)
pour terminer par ");

--
André
Jacquouille
Le #26384609
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
andre
Le #26384613
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é
Jacquouille
Le #26384646
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
andre
Le #26384660
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é
andre
Le #26384659
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é
Péhemme
Le #26384658
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é
andre
Le #26384666
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é
Publicité
Poster une réponse
Anonyme