remplir une combobox depuis un recordset

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:

---

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 ! :)

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:

---

ComboBox2.List(ComboBox1.ListIndex)

---

Bonjour,

Tu peux utiliser une combobox multicolonne:

Code:

---

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/

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:

---

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:

---

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 ! :)

Re,

Comme ca tu gagneras du temps:

Code:

---

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

---

Citation:

---

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:

---

If .ListIndex = -1 Then Exit Sub

---

Bon courage,

Tirex28/

Super ça marche !

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

Code:

---

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 ! :)