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 :
Il m'affiche manifestement des résultats qui ne sont pas cohérents (des éléments cochés, d'autres non...).
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
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
Partager