Bonjour mes ami(es),
je reviens encore une fois vers vous en espérant de trouver des réponses à mes questions.
j'ai effectué quelques recherches dans le Forum concernant les cases à cocher dans une zone de liste, et je me suis tombé sur cette discussion qui m'arrange beaucoup, en ajoutant le contrôle ACtive X "Microsoft Form 2 ListBox"
http://www.developpez.net/forums/d22...ckbox-listbox/
mais mon problème c'est que je ne sais pas comment alimenter la listebox via une requête soit SQl soit Recorset! pourriez vous m'aider ou m'orienter svp?
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
16
17
18
19 Private Sub Form_Load() Const fmLIST_STYLE_OPTION As Integer = 1 Const fmMULTI_SELECT_SINGLE As Integer = 0 Const fmMULTI_SELECT_MULTI As Integer = 1 Const fmMULTI_SELECT_EXTENDED As Integer = 2 Dim I As Integer Dim oCtl As Object Set oCtl = lstTest.Object With oCtl .listStyle = fmLIST_STYLE_OPTION .MultiSelect = fmMULTI_SELECT_MULTI For I = 1 To 10 .AddItem "Valeur " & Trim(str(I)) Next End With Set oCtl = Nothing End Sub
merci d'avance pour l'aide que vous pouvez m'apporter.
cordialement.
Partager