Discussion :

[calvi2002]

Bonjour,j'ai 2 tableau qui alimente une combobox.quand je clique sur la valeur qui est à l'interieur de la combobox je veux que cette valeur soit tranfere dans un textbox.

Code :

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

1
2
3
4
5
6
7
8
9
 
Public Sub UserForm_Initialize()
couleur = Array("rouge", "jaune", "vert clair", "bleu clair", "vert foncée")
indice = Array("3", "6", "45", "44", "7")
Do While j < UBound(couleur) + 1
        UserForm1.cbxprix.AddItem (couleur(j) & " l'indice est " & indice(j))
        j = j + 1
    Loop
End Sub

la combobox(cbxprix)elle est bien rempli mais quand je clique sur la valeur de la combo elle reconnait pas indice(j).

Code :

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

1
2
3
4
5
 
Private Sub cbxprix_Click()
UserForm1.txtprix.Visible = True
txtprix.Text = indice(j)
End Sub

je pense que les tableau il fait pas les declarées quand on initialise l'userform .
merci pour votre aide

[fgiambelluco]

Bonjour
Je pense qu'il faudrait déclarer les 2 tableaux (couleur et indice) dans la section déclarations du module du UserForm. En effet ils sont déclarés dans UserForm_Initialize() et donc n'existe plus dans cbxprix_Click()

[ouskel'n'or]

Ouf, ça y est, j'ai compris grâce à fgiambelluco
Teste ça

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
Dim couleur As Variant, Indice As Variant
 
Public Sub UserForm_Initialize()
couleur = Array("rouge", "jaune", "vert clair", "bleu clair", "vert foncée")
Indice = Array("3", "6", "45", "44", "7")
Do While j < UBound(couleur) + 1
        UserForm1.cbxprix.AddItem (couleur(j) & " l'indice est " & Indice(j))
        j = j + 1
    Loop
End Sub
 
 
Private Sub cbxprix_Click()
UserForm1.txtprix.Visible = True
txtprix.Text = "L'indice est " & Indice(cbxprix.ListIndex)
End Sub

Bonne journée

[calvi2002]

trop fort!!
merci beaucoup de ton aide!