VBA - Exploitation Listbox dans une seule cellule

Bonjour à tous,

J'espère que la question n'a jamais été posée, en tout cas je n'ai pas pu trouver de réponse après avoir cherché longuement.

Voila, J'essaye de trouver un moyen de récupérer dans une variable l'ensemble des cases cochées dans une Listbox (avec choix multiples permis) pour le renseigner dans une seule cellule de manière à obtenir après validation dans la cellule une valeur comme : "Choix1;Choix3;Choix7".

J'essaye de jouer avec les Listbox.list et Listbox.selected = true mais impossible de parvenir au résultat final.

Merci d'avance de votre aide !!!!!

Damien.

Bonjour,

Ci dessous un exemple pour lire les lignes d'une listbox et afficher celles sélectionnées en les séparant d'un ;

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim i As Integer Dim StrSelection As String   For i = 0 To ListBox1.ListCount - 1   If ListBox1.Selected(i) = True Then If StrSelection <> "" Then StrSelection = StrSelection & ";" StrSelection = StrSelection & ListBox1.List(i, 0) End If     Next i   Msgbox StrSelection

---

C'est parfait, merci bien !!!