Discussion :

[Zorgloub]

Bonjour,

J'essai de remplir une combobox avec un recordset. J'ai ma base de donnée avec une table comme ceci :

idOperation1 nom1 prenom1
idOperation2 nom2 prenom2
idOperation3 nom3 prenom3

J'ai besoin d'afficher dans la combobox : "nom1 prenom1", "nom2 prenom2", "nom3 prenom3" ...

Ca ne pose pas de problème avec 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
requetteSQL = "SELECT idOperateur,nom,prenom " _
& " FROM operateur;"
 
rst.Open requetteSQL, conn
 
 
While Not rst.EOF
 
    Me.ComboBox2.AddItem (rst.Fields("nom") & " " & rst.Fields("prenom"))
 
    rst.MoveNext
 
 
Wend
 
rst.Close

Mais si je selection "nom2 prenom2" et que je clic ensuite sur un boutton, ou qu'il se produit n'importe quelle autre evenement, j'aimerai y associer "idOperation2". idOperation est ma clé primaire.

Comment puis-je faire quelque chose de ce type svp ? Je ne veux pas faire de la concaténation ou utiliser un tableau sur ma feuille. Je suis sûr qu'il existe une solution propre.

Merci de vos éclairages !

[zebulon2212]

met une autre combobox avec la propriété visible à false a coter de la premiere
tu la rempli en meme temps que la premiere mais uniquement avec idOperation.
ensuite tu te sert de combobox1.listindex pour recuperer l'idoperation correspondant :

Code :

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

ComboBox2.List(ComboBox1.ListIndex)

[tirex28]

Bonjour,

Tu peux utiliser une combobox multicolonne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With ComboBox1  'Remplir la liste
    .ColumnCount = 2
    .AddItem 1
    .List(0, 1) = "Nom1"
    .AddItem 2
    .List(1, 1) = "Nom2"
    .BoundColumn = 2        'Defini la 2eme colonne comme source de Value
    .ColumnWidths = "0;"    'Masque la 1ere colonne
End With
 
With ComboBox1  'Lire la liste
    MsgBox .List(.ListIndex, 0) 'Renvoie la cle (1ere colonne)
    MsgBox .Value               'Renvoie la valeur affichée
End With

Cordialement,

Tirex28/

[Zorgloub]

Merci l'affectation marche. Mais pour récuperer ensuite les valeurs, j'obtiens l'erreur suivante : 'Impossible de lire la propriété list. Index de table de propriété non valide.'

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
24
25
26
27
28
29
30
31
32
33
 
requetteSQL = "SELECT idOperateur,nom,prenom " _
& " FROM operateur;"
 
rst.Open requetteSQL, conn
 
i = 0
'Dim tableau As Variant
'tableau = rst.GetRows
ComboBox2.ColumnCount = 2
ComboBox2.BoundColumn = 2
 
While Not rst.EOF
 
 
    With ComboBox2  'Remplir la liste
        .AddItem (rst.Fields("nom") & " " & rst.Fields("prenom"))
        .list(i, 1) = rst.Fields("idOperateur")
        .BoundColumn = 2        'Defini la 2eme colonne comme source de Value
        .ColumnWidths = ";0"    'Masque la 2ème colonne
     End With
 
    rst.MoveNext
    i = i + 1
 
Wend
 
rst.Close
 
With ComboBox2  'Lire la liste
    MsgBox .list(.ListIndex, 1) 'Renvoie la cle (1ere colonne)
    MsgBox .Value               'Renvoie la valeur affichée
End With

Je ne comprends pas trop comment récuperer la valeur associé à l'affichage de ma ComboBox2. J'ai essayé de placer

Code :

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

1
2
3
 
   MsgBox .list(.ListIndex, 1) 'Renvoie la cle (1ere colonne)
    MsgBox .Value               'Renvoie la valeur affichée

dans ComboBox2_Change () (pour avoir sélectionné une ligne précise avant), mais je ne peux toujours pas afficher le couple clé/valeur.

Je ne comprends pas non plus la documentation d'Excel sur .List et .ListIndex. Ces méthodes sont associés à ComboBox2, MsgBox peut les utiliser comme cela ? Je ne trouve pas le doc d'Excel très clair sur ce sujet.

Merci encore !

[tirex28]

Re,

Comme ca tu gagneras du temps:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    With ComboBox2
        .ColumnCount = 2
        .BoundColumn = 2
        .ColumnWidths = ";0"    'Masque la 2ème colonne
        While Not rst.EOF
            .AddItem (rst.Fields("nom") & " " & rst.Fields("prenom"))
            .List(i, 1) = rst.Fields("idOperateur")
            rst.MoveNext
            i = i + 1
        Wend
    End With

Je ne comprends pas trop comment récuperer la valeur associé à l'affichage de ma ComboBox2

Il n'y a pas grand chose a comprendre si ce n'est que List compte les lignes et les colonnes a partir de zero, ListIndex les lignes a partir de zero mais renvoie -1 si aucune ligne n'est selectionne, alors que Listcount compte les lignes a partir de 1. Apres on se bat un peu avec les indices avant de finir par y arriver.

Essaye d'ajouter ceci dans ton evenement change:

Code :

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

If .ListIndex = -1 Then Exit Sub

Bon courage,

Tirex28/

[Zorgloub]

Super ça marche !

effectivement, il n'y avait pas trop à se casser la tête. J'ai fais plus simple dans un bouton :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
 
If Not IsNull(saisi.ComboBox2.Value) Then
    MsgBox saisi.ComboBox2.Value
End If
 
 
End Sub

Merci beaucoup !