Discussion :

[lakhdar16]

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.

[VincentNguon]

Avec la référence Microsoft ADO activée, voilà comment ouvrir une requête puis parcourir les enregistrements, récupérer la valeur d'un champ puis fermer la requête :

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
Dim Rst As New ADODB.Recordset
Dim SQL As String
Dim Variable As String
 
' requête SQL
SQL = "SELECT * FROM [Nom_de_Table] WHERE [Condition1] AND [Condition2]"
 
' Ouverture (CurrentProject si ta requête est dans ton fichier access)
Rst.Open SQL, CurrentProject.Connection
 
' Tant qu'on est pas à la fin de la requête (EOF = End of file)
While Not Rst.EOF
     Variable = Rst![Nom_du_champ_de_la_table]
Wend
 
' Fermeture de la requête
Rst.Close
Set Rst = Nothing

Tu glisses cette procédure à la place de ton "for", tu adaptes la requête SQL et tu rajoutes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oCtl.AddItem "Valeur " & Variable

dans le "While", à priori ça devrait être bon... Ca devrait alimenter ta liste déroulante.

[lakhdar16]

Bonjour, et merci pour ta repense,

il s'agit dans mon cas d'une zone de liste et pas une liste déroulante, je cherche comment alimenter la zone de liste via un recordset afin d'obtenir plusieurs colonne, la méthode RowSource n'est pas supportée avec l'objet Active X Microsoft Form 2 ListBox.

votre cas marche nickel avec une liste déroulante mais dans le cas de zone de liste non.

merci.

[lakhdar16]

Bonjour,

pour remplir la listbox MS forms 2 j'ai utiliser la méthode ADODB, pour cela j'ai fais le code suivant:

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
20
Sub RemplirListBox (ByRef cbo As MSForms.ListBox, strSQL As String, ByRef strField As String, ByRef strfield2 As String, ByRef strfield3 As String)
Dim x As Integer
Dim rs2 As New ADODB.Recordset
x = 0
Set rs2 = New ADODB.Recordset
rs2.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly
If rs2.EOF Then
Else
Do Until rs2.EOF
cbo.AddItem
cbo.List((x), 0) = rs2.Fields(strfield2)
cbo.List((x), 1) = rs2.Fields(strField)
cbo.List((x), 2) = rs2.Fields(strfield3)
x = x + 1
    rs2.MoveNext
Loop
  rs2.Close
  Set rs2 = Nothing
  End If
End Sub

et sur chargement du Formulaire:

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
20
21
22
23
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
Dim rst As New ADODB.Recordset
Dim S As Long
 
 
  Set oCtl = lstTest.Object
 
    oCtl.listStyle = fmLIST_STYLE_OPTION
    oCtl.MultiSelect = fmMULTI_SELECT_MULTI
    oCtl.ForeColor = vbBlue
    oCtl.BackColor = vbYellow
    oCtl.FontSize = 10
 
  RemplirListBox oCtl, "SELECT * FROM tbl_CurrentUser", "Username1", "Région", "Profil"
 
 
  Set oCtl = Nothing

avec cette méthode vous aurez une zone de liste avec cases à cocher, et pour récupéré la valeur ID de la ligne séléctionnée:

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 cmdShowContent_Click()
Dim oCtl As Object
Dim strContent As String
Dim I As Integer
Dim N As Integer
 
  Set oCtl = lstTest.Object
  For I = 0 To oCtl.ListCount - 1
    If oCtl.Selected(I) = True Then
      strContent = strContent & oCtl.List(I) & vbCrLf
    End If
  Next
  MsgBox strContent
 
End Sub

et voilà ça marche nickel pourvu que cela aidera autres gens.

cordialement.