Bonjour,

Dans un Userform, je dispose:
D’une combobox (cbx_choix)
D’une textbox « nbre_jours »
En fonction de la sélection de la combobox, un nombre de jours devrait s’afficher dans la textbox « nbre_jours »
J’ai écris le code ci-dessous. Pas de problème pour alimenter la combo mais la textbox reste vide.
Quelqu’un pourrait-il me faire part de l’erreur ?

D’avance merci

Harry

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Click()
List = Array("Bricolage","Bureautique", "Poterie") 
For i = 0 To UBound(List)
cbx_choix.AddItem List(i)
Next i
If cbx_choix.Value = List(0) Then
    nbre_jours.SetFocus
    nbre_jours.Value = "4"
    Else
    If cbx_choix.value = List(1) Or cbx_choix.value = List(2) Then
        nbre_jours.SetFocus
        nbre_jours.value = "5"
End If