Concatener tant que

Bonjour à tous,

je suis nouveau en VB et j'ai bcp de mal avec un truc très simple

j'ai 2 colonnes

Une avec des ID, et l'autre avec un role.

je peux avoir le meme id avec des roles différents

Je dois faire une feuille avec l'id unique et dnas l'autre colonne l'ensemble des roles séparé de ;

exemple :

1 12

1 1

1 21

2 1

2 3

résultat

1 12;1;21

2 1;3

merci par avance pour votre aide

bonjour

voila ; avec des explications

cordialement

J'ai trouvé

j'ai fait ça

Do

While (Cells(i, 1) = Cells(i + 1, 1))

Cells(i, 2) = Cells(i, 2) & ";" & Cells(i + 1, 2)

Rows(i + 1).Select

Selection.Delete Shift:=xlUp

Wend

i = i + 1

Loop While Cells(i, 1)

Merci beaucoup tulip