concatener par boucle WHILE

romuald · 29 Mai 2006

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é · 29 Mai 2006

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 · 30 Mai 2006

merci ca marche nickel

concatener par boucle WHILE

romuald

Guest

Hervé

XLDnaute Barbatruc

romuald

Guest

Discussions similaires

concatener par boucle WHILE

romuald

Guest

Hervé

XLDnaute Barbatruc

romuald

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency