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/

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
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?

merci d'avance pour l'aide que vous pouvez m'apporter.

cordialement.