Concatener cellules

[Ken Hutchinson]

Bonjour à tous,

Je voudrais concatener en colonne B ce qu'il y a en colonne B et en colonne C... jusqu'à ce qu'il n'y ait plus rien en colonne B. Suis je clair ?

En fait la colonne B doit être égale à B&C... Jusqu'à ce que B soit vide...

Vous pouvez m'aider les amis du VBA ?

 

[SergiO]

Re : Concatener cellules

Bonjour,

Essaie ceci:

Sub Concatener()
Derlig = [B65536].End(xlUp).Row
For L = 1 To Derlig
Cells(L, 2) = Cells(L, 2) & Cells(L, 3)
Next L
End Sub

@+

 

[Ken Hutchinson]

Re : Concatener cellules

Oui merci ça marche....

mais peux tu m'expliquer le code car c'est la première fois que je vois ça...

 

[SergiO]

Re : Concatener cellules

Re,

Le même code avec quelques précisions:

Sub Concatener()
[COLOR=SeaGreen]'Recherche de la dernière ligne (Row) de la colonne B en partant de la dernière ligne (65536) en remontant (XlUp)[/COLOR]
[COLOR=SeaGreen]Derlig = [B65536].End(xlUp).Row
'Boucle de 1 à la dernière Ligne trouvée ci-dessus[/COLOR]
For L = 1 To Derlig
[COLOR=SeaGreen]'Concaténation: Cells(1,2) correspond par exemple à B1 et Cells(1,3) à C1 pour L = 1[/COLOR]
[COLOR=SeaGreen]'d'où B1 = B1 & C1[/COLOR]
Cells(L, 2) = Cells(L, 2) & Cells(L, 3)
[COLOR=SeaGreen]'Fin de la boucle[/COLOR]
Next L
End Sub

@+

 

[Ken Hutchinson]

Re : Concatener cellules

Merci beaucoup !!!