Gérer une ListBox contenant une CheckBox
Bonjour,
Après avoir chercher sur Internet à la façon de mettre en place une liste sélectionnable pour case à cocher, j'ai trouvé un moyen de faire. Il faut changer les propriétés de la liste et mettre :
- ListStyle : 1 - fmListStyleOption
- MultiSelect : 1 - fmMultiSelectMulti
Cependant, je ne trouve pas de manière pour contrôler la sélection. D'après divers forums, il faudrait que j'utilise maListe.Selected(index), mais visiblement, cela ne fonctionne pas dans mon code.
Voici ma fonction :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Private Sub btn_continuer_Click()
Dim index As Integer
For index = 0 To lst_resultat.ListCount - 1
If lst_resultat.Selected(index) Then
MsgBox (lst_resultat.List(i, 3))
End If
Next
' Call EcrireExcel
Unload Me
End Sub |
Il m'affiche manifestement des résultats qui ne sont pas cohérents (des éléments cochés, d'autres non...).
Est-ce peut-être du à l'utilisation d'une liste à plusieurs colonnes ? Mes recherches sur Internet ne m'ont pas aidé pour le coup, d'où mon appel à votre savoir.
En vous remerciant à l'avance du temps que vous me consacrerez.
Ps: J'utilise la version 6.5 de VBA
