Discussion :

[Harry Covair]

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

[mercatog]

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

Code :

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

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 :

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

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

[pgz]

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 :

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

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

[Harry Covair]

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

[ucfoutu]

Bonsoir,

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

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 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

[Harry Covair]

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 :

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

  =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 :

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

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 :

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

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 :

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

  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 :

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

cbx_choix.ColumnCount = 2

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

[laetitia]

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

Code :

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

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

[Harry Covair]

Bonjour Laeticia,

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

Bonne fin de weekend

Harry