Gérer une ListBox contenant une CheckBox

[Tryp']

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