Salut nebka31
soit Listbox1 la listbox et Textbox1 la textbox
Dim chn as String, i as long
chn = ""
for i = 0 To Listbox1.Items.Count -1
chn = chn & Listbox1.Items(i).ToString & "; "
Next i
chn = chn.Trimend ' on enlève le dernier espace
Textbox1.Text = chn
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.