[vb excel]Déclencher evenement en fonction choix combobox

Bonjour,

Je voudrais savoir comment faire pour afficher des checkbox en fonction d'un choix dans une combobox.

Code:

---

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

If Userform1.month_box.Value <> "Tous" Then Userform1.Semaine1.Visible = True Userform1.Semaine1.Caption = "Semaine 1" Userform1.Semaine2.Visible = True Userform1.Semaine2.Caption = "Semaine 2" Userform1.Semaine3.Visible = True Userform1.Semaine3.Caption = "Semaine 3" Userform1.Semaine4.Visible = True Userform1.Semaine4.Caption = "Semaine 4" Userform1.Semaine5.Visible = True Userform1.Semaine5.Caption = "Semaine 5" Userform1.Semaine6.Visible = True Userform1.Semaine6.Caption = "Semaine 6" End If

---

y a t il quelque chose a faire pour déclencher ce code??[/quote]

Salut,

Une petite précision me semble s'imposer 8O
Ton "month_box" est je suppose une combo box ?
et tes "Semaine1, 2, ... ,6" c'est quoi dans ton userform, des textbox, des valeurs de ta combobox ... ?

Merci de détailler même si je ne t'aide pas beaucoup. :oops:

Igloobel

Pardon, j'ai la facheuse manie de tout renommer...
Alors les Semaine1,2... sont des checkbox qui sont censé s'affiché lorsque la valeur de ma combobox month_box est différente de "Tous".

Donc si je comprends bien
Algorithmiquement tu dis :
Si ma checkbox est différente de la valeur "tous"
je mets tous mes checbox les 6 semaines à vrai (donc je coche)

Ai-je bien compris ?
Est-ce bien ce que tu veux faire?

Quels sont les autres valeurs de ta combobox ?

Igloobel

Par défaut la propriété d’un CheckBox est Value.
Donc tu peux placer TaChBox.value = true

par contre, je ne vois pas le rapport avec ta question :

Citation:

---

y a t il quelque chose a faire pour déclencher ce code?

---

"Userform1.Semaine1", c'est quoi ? Le checkBox ?

Enfin, pour les CheckBox, si tu as besoin de mettre tous tes checkbox à false sauf le CheckBox sélectionné, tu as intérêt à créer un groupe de contrôles. Dans le cas contraire, tu oublies :wink:

A+

Le fait de rénomer est à mon umble avis très bien, je le fais également très souvent mais je met 3 ou 4 lettres devant mon nom pour savoir ce que c'est :wink:

Il est vrai que TEXTBOX1 , TEXBOX2 ... c'est pas parlant parcontre on c'est ce que c'est :wink:

Je te conseille pour semaine1 si c'est un chekbox de le nomer CHKB_semaine1

Ceci est juste un avis, tu fais comme tu veux :wink:

Igloobel

Ok pour les règles de nommage des contrôles, c'est vrai que c'est plutôt agréable de mettre dans le nom le type de contrôle, et le role qu'il joue.
Mais pour ta première question, je dirai qu'il faut mettre ton test dans l'événement Private Sub Month_box_Change() de ta ComboBox.

en fait la vrai question c'est :
je voudrais visible les chexkbox lorsque l'utilisateur effectue un certain choix dans la combobox. Je sais que ca marche lorsque je met un bouton mais je voudrais juste le faire quand le choix est fait.

Merci,ouskel'n'or bonne idée de mettre une frame ;-)

Code:

---

1 2 3 4 5 6

If Userform1.combobox.Value <> "Tous" Then Userform1.checkbox1.Visible = True Userform1.checkbox1.Caption = "Semaine 1" ... End If

---

Et dans MouseUp, c'est pas mieux ?

A+

personnellment ce qui me gêne c'est :

Citation:

---

...Si ma checkbox est différente de la valeur "tous"
je mets tous mes checbox (les 6 semaines) à vrai (donc je les coche)

---

ou alors il y a quelque chose qui m'échappe (ce qui est possible cela m'arrive souvent).

Souvent je fonce tête baissé sur un truc et OUPS !!

Mis à part cela ai-je bien compris son code?

c'est bon j'ai trouvé tout seul la solution...
merci à vous tous, vous m'avez donné plein d'idée...
c'est cool.

J'explique pour ceux qui ont compris mon pb,en gros il fallait juste que je mette mon code dans la procédure de ma combobox, betement.

Mais ça ne marche pas dans l'événement "_Change" de ton ComboBox?
Cet événement est appelé à chaque fois que tu modifies la sélection de ce contrôle, donc ça devrait correspondre à ce que tu veux faire, non? Qu'est-ce qui se passe si tu fais ça?
[edit]Ok, trop tard....

Toutes mes excuses le ".visible" je l'ai pas vu :scarymov:

N'insiste pas Megaxel, y veut pas nous dire ce qu'y a fait... :wink:

Oui Megaxel c'est ca que j'ai fait ...c'est pour ca que j'utilise le terme "betement".
a force d'utiliser des trucs compliqués on en oublie les trucs faciles, enfin surtout moi en fait ...