VBA pour concatenation

[romainchu78]

bonjour a tout le forum,
Je vroudrais savoir un code VBA pour concatener plusieurs colonne en une autre.
ex: celulle 1 colonne A: Je
cellule 1 colonne B: SUIS
cellule 1 colonne C: CONTENT
resultat:
cellule 1 colonne D: JESUISCONTENT.
la taille des colonnes peut varier donc faudrait un code qui detecte auto la taille.
merci par avance

 

[Krut]

Re : VBA pour concatenation

Bonsoir romainchu78, le forum,
pourquoi ne pas essayer tout simplement :

Range("D1").value=Range("A1").value+Range("B1").value+Range("C1").value

Bon courage

 

[romainchu78]

Re : VBA pour concatenation

cela marche tres bien pour une ligne. mais maintenant comment faire si je veux letendre a toutes les lignes:
du genre:

Range("Dn").value=Range("An").value+Range("Bn").value+Range("Cn").value

ou n est le numero de la ligne.
on pourra peut etre inventer une boucle for pour incrementer le n

merci

 

[bqtr]

Re : VBA pour concatenation

Bonsoir romainchu78, Krut

Une façon de faire :

Sub concat()
Dim CC As String
CC = ""
For i = 1 To 3
CC = CC & Cells(1, i) & " "
Next
Cells(1, 4) = CC
End Sub

A+

 

[bqtr]

Re : VBA pour concatenation

Re,

Pour plusieurs lignes :

Sub concat()
Dim CC As String
Dim i As Byte, j As Long
CC = ""
For j = 1 To Range("A65536").End(xlUp).Row
    For i = 1 To 3
       CC = CC & Cells(j, i) & " "
       Cells(j, 4) = CC
    Next
CC = ""
Next
End Sub

 

[romainchu78]

Re : VBA pour concatenation

super
merci