Récupérer des valeurs d'une listBox sous excel

Résolu
fitzjames Messages postés 55 Date d'inscription mardi 8 juin 2004 Statut Membre Dernière intervention 27 février 2009 - 3 mars 2006 à 17:22
fitzjames Messages postés 55 Date d'inscription mardi 8 juin 2004 Statut Membre Dernière intervention 27 février 2009 - 6 mars 2006 à 14:20
Bonjour à tous,

J'ai un petit souci sur ma listbox :
j'aimerai récuperer les valeurs sélectionnées de ma liste, les ajouter dans une variable, afin de les mettre dans une cellule d'une feuille de calcul.

Dim Text1 As String
Dim text As String


For i = 0 To 20
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
text = ListBox1.Value
Text1 = Text1 + text
End If
Next i

Merci d'avance


[?] Estelle[8D]

9 réponses

cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 23
6 mars 2006 à 13:12
Ah ok je viens de saisir le truc (enfin je crois)

Dim Text1 As String
Text 1 = CStr(Range("E30"))

For i = 0 To ListBox1.ListCount-1
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
Text1 = Text1 & " ," & ListBox1.List(i)
End If
Next i

Range("E30") = Mid$(Text1, 2, Len(Text1))
2