Sélection d'une combobox dans un textbox

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:

---

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

---

Je vais répondre sur le code sans discuter la méthode.
D'abord, tu dois bien choisir l'évènement.
par exemple

Code:

---

1 2	Private Sub UserForm_Initialize() ' au lieu de UserForm_Click() 'ici tu remplis ta combo

---

Ensuite, pour écrire dans ta TextBox après choix dans ta combo, on utilise cet évènement (par exemple)

Code:

---

1 2 3 4 5 6

Private Sub cbx_choix_AfterUpdate Select case cbx_choix Case Is "toto":nbre_jours.value = 1 Case Is "tata":nbre_jours.value = 2 ... End select

---

ceci étant à propos du fonctionnement du code.
et pour analyser le problème;
Pourquoi ne pas faire une combo à 2 colonnes? une variante

Bonjour.

Il y a de nombreuses solutions, en voici une :
Un tableau de valeurs : col1 (Activité) Col2 (Durée) que je nomme ListeDureesActivites
Dans la userform, une liste de zone modifiable (lstChoixActivite) et une textbox (txtDuree).

Paramétrage de lstChoixActivite : RowSource = ListeDureesActivites, Bound Column = 2; Column Count = 1.

Une procédure évènementielles

Code:

---

1 2 3

Private sub lstChoixACtivite_Change Me.txtDuree = Me.lstChoixActivite End sub

---

Bien sûr, suivant le contexte on peut faire de nombreuses varaiantes.

Cordialement,

PGZ

Merci à tous les deux pour votre réponse.
La solution proposée par Mercatoq fonctionne à merveille.
L'idée proposée par PGZ est élégante mais me demande un peu plus de réflexion. Je m'y attèle demain dimanche.
Je vous tiens au courant

Excellent weekend.

Harry

Bonsoir,

Moi, je te propose ce petit jeu (juste pour exercer ton agilité) :
Sur un UserForm : une Combobox nommée macombo ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Form_Initialize() 'petite cerise de décoration Dim i As Integer, toto macombo.Tag = "Bricolage@3@Bureautique@5@Poterie@1@" ' tout se passe ici toto = Split(macombo.Tag, "@") For i = 0 To UBound(toto) - 2 Step 2 macombo.AddItem toto(i) Next End Sub   Private Sub macombo_Click() MsgBox Val(Mid(macombo.Tag, InStr(macombo.Tag, "@" & macombo.Text & "@") + Len(macombo.Text) + 2)) End Sub

---

Bonjour,

J’ai suivi les suggestions de Mercatog et de PGZ; quoique l’époque de la choucroute soit encore lointaine, je suis en plein dedans.

• La propriété « RowSource » de la combobox « cbx_choix » remplie avec l’instruction
  Code:

  ---

  =list.BoundColumn = 2; ColumnCount = 1

  ---

  donne le message « could not set the RowSource property. Invalid property value. »

La combobox « cbx_choix » est remplie via le code (option Base 1):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_initialize() Dim list() ReDim list(1 To 3, 1 To 3) list1 = Array("Bricolage ", " Bureautique ", " Poterie ") list2 = Array("4", "5", "5") For i = 1 To UBound(list1, 1) list(1, i) = list1(i) list(2, i) = list2(i) Next i cbx_choix.ColumnCount = 2 cbx_choix.Column() = list End Sub

---

Lorsque le module s’exécute , j’obtiens bien deux colonnes (Bricolage 4, Bureautique 5, …)
Le code de l’étape suivante est :

Code:

---

1 2 3 4

Private Sub cbx_choix_afterupdate() MsgBox cbx_choix.Value Me.nbre_jours.Value = Me.cbx_choix.BoundColumn = 2 End Sub

---

• Première remarque, le A de « afterupdate » n’est pas en majuscule (même remarque pour l’évènement "change".)

• Si à l'instruction
  Code:

  ---

  Me.nbre_jours.Value = Me.cbx_choix.BoundColumn = 2

  ---

  j’ajoute " ; ou ,ColumnCount = 1", j’obtiens l’erreur « Expect end of statement ».

• Lors de l’exécution du code tel que ci-dessus, , la mention « FALSE » apparaît dans la textbox « nbre_jours ».

J'espère que mes explications sont suffisemant claires pour espérer un petit coup de pouce de votre part afin d'accéder à la colonne reprenant le nombre de jours.

D'avance merci et excellent dimanche
Pour UCFoutu, je creuse le "petit jeu" après avoir résolu le problème actuel
Note complémentaire
Je viens, après avoir écrit ce message, d'exécuter le code du premier module (initialize) en pas à pas. L'instruction

Code:

---

cbx_choix.ColumnCount = 2

---

affiche la valeur "ColumnCount = 1". Et pourtant, je vois les deux valeurs dans la combobox.
Harry

bonjour le fil le forum
met le code dans change!!

Code:

---

1 2 3 4

Private Sub cbx_choix_Change() MsgBox cbx_choix nbre_jours = cbx_choix.list(cbx_choix.ListIndex, 1) End Sub

---

Bonjour Laeticia,

Merci pour le conseil.
Je viens de tester et l'application fonctionne correctement.

Bonne fin de weekend

Harry