Discussion :

[Bugzy1963]

Bonsoir le forum

J'ai une application userform avec un Combobox1.

Le combobox se rempli lors de son ouverture sans problème.
Lorsque je choisi une valeur texte dans la liste du combobox, la valeur apparait dans la fenêtre du combobox sans problème.

A l'exécution du Commandbutton1_click sur le userform, la valeur Combobox1.value me donne toujours la dernière valeur de la liste.
Je vous fais parvenir le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 
Dim classe As String
Dim Noclasse As Integer
 
classe = ComboBox1.Value
Noclasse = Val(Application.WorksheetFunction.Lookup(classe, Sheets("Etendu_Garantie").Range("C103:L103"), Sheets("Etendu_Garantie").Range("C102:L102")))
Cells(1, 46) = Noclasse
 
Unload Me
End Sub

Ainsi, si par exemple j'ai 7 valeurs texte dans le combobox et que je choisi le deuxième mot de la liste, ce sera toujours le 7e mot qui sera dans combobox1.value.

Cependant, le mot choisi appararait dans la variable classe.

Pourtant cette petite routine fonctionne très bien dans un autre userform.

Avez-vous une idée ???

[Bugzy1963]

J'ai résolu le problème en utilisant cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
 
Dim classe As Integer
 
classe = Val(ComboBox1.ListIndex + 1)
Cells(1, 46) = classe
 
Unload Me
End Sub

Merci aux lecteurs.