transfer des données d'une combobox

Version imprimable

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:

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:

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

21/07/2009, 09h34
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()

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

Code:

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

21/07/2009, 09h53
calvi2002

trop fort!!
merci beaucoup de ton aide!