Discussion :

[the java lover]

Bonjour,

Je souhaite faire une combo box qui affiche des valeurs (libellés) et qui me retourne des valeurs correspondantes.

Exple :

Code :

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

1
2
3
4
 
Le label TOTO me renvoie la valeur O
Le label TITI me renvoie la valeur I
Le label TUTU me renvoie la valeur U

Pour construire ma combo, je fais:

Code :

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

1
2
3
4
 
liste.AddItem "TOTO", 0
liste.AddItem "TITI", 1
liste.AddItem "TUTU", 2

En fait 0, 1 et 2 sont les index. Je ne sais pas:

1/ OU préciser les valeurs à retourner
2/ Comment récupérer ces valeurs.

Merci pour votre aide

[SfJ5Rpw8]

Tiens un peu de code :...

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 ComboBox1_Change()
  MsgBox "Selection N° " & ComboBox1.ListIndex & _
   vbCrLf & "  = " & ComboBox1.List(ComboBox1.ListIndex, 0) & _
   vbCrLf & " Code : " & ComboBox1.List(ComboBox1.ListIndex, 1)
 
End Sub
 
Private Sub Form_Load()
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = ";0" ' Pour masquer la 2° colonne
ComboBox1.AddItem "TOTO"
ComboBox1.Column(1, 0) = "O"
 
ComboBox1.AddItem "TITI"
ComboBox1.Column(1, 1) = "I"
ComboBox1.AddItem "TUTU"
ComboBox1.Column(1, 2) = "U"
 
End Sub

dis nous si probleme...

[leroissejp]

Bonjour,
bbil, ce code ne fonctionnera pas en VB 6.
Le combobox de vb6, n'a pas les propriétés Columns.

jpleroisse

[SfJ5Rpw8]

Bonjour,
bbil, ce code ne fonctionnera pas en VB 6.
Le combobox de vb6, n'a pas les propriétés Columns.

jpleroisse

utilise le Combobox présent dans "Microsoft Forms 2.0 Object Library"

[leroissejp]

Re,
Où essaye ce code

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
 
Option Explicit
Dim Noms(0 To 2) ' Dimensionne deux tableaux.
Dim Données(0 To 2)
 
Private Sub Form_Load()
   Dim I   ' Déclare la variable.
 
   Noms(0) = "TOTO"    ' Entre les données
                                 ' dans les tableaux.
  Noms(1) = "TITI"
   Noms(2) = "TUTU"
   Données(0) = "0"
   Données(1) = "I"
   Données(2) = "U"
   For I = 0 To 2   ' Ajoute des noms à la liste.
      Combo1.AddItem Noms(I)
   Next I
 
End Sub
 
Private Sub Combo1_Click()
Dim r, t
r = Données(1)
t = Données(2)
   ' Affiche le Salaire correspondant au nom.
   TOTO.Caption = Données(Combo1.ListIndex)
    TITI.Caption = r
    TUTU.Caption = t
    End Sub

jpleroisse