[XL-2003] VBA - Exploitation Listbox dans une seule cellule [Résolu]

[DamiDam]

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.

[jfontaine]

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

[DamiDam]

C'est parfait, merci bien !!!