VBA pour concatenation

Krut

XLDnaute Nouveau

• 10 Mai 2007

• #2

Re : VBA pour concatenation

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

Code:

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

Bon courage

 

Vote positif 0 Vote négatif

R

romainchu78

XLDnaute Occasionnel

• 10 Mai 2007

• #3

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

 

Dernière édition: 10 Mai 2007

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 10 Mai 2007

• #4

Re : VBA pour concatenation

Bonsoir romainchu78, Krut

Une façon de faire :

Code:

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+

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 10 Mai 2007

• #5

Re : VBA pour concatenation

Re,

Pour plusieurs lignes :

Code:

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

 

Vote positif 0 Vote négatif

R

romainchu78

XLDnaute Occasionnel

• 10 Mai 2007

• #6

Re : VBA pour concatenation

super
merci

 

Vote positif 0 Vote négatif