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 : Sélectionner tout - Visualiser dans une fenêtre à part
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