concatener par boucle WHILE

[romuald]

Je voudrai concatener les valeurs d'une colonne d'un tableau en insérant une virgule entre chaque valeur et avoir le symbole # au debut de la chaîne.

Exemple:

#vnep502,vnep1526,vnhe256

d'après

entete
_________
|vnep502 |
|vnep1526|
|vnhe256 |

 

[Hervé]

bonjour

a tester :

Sub Bouton1_QuandClic()
Dim c As Range
Dim t As String

For Each c In Range('a2:a' & Range('a65536').End(xlUp).Row)
t = t & ',' & c
Next c
Range('b1') = Replace(t, ',', '#', 1, 1)

End Sub

donnée en colonne A renvoi en B1

salut

 

[romuald]

merci ca marche nickel