Userform combiner les valeurs de différentes checkbox dans une zone résultat

Bonjour,

Je souhaite réaliser un user form ou l'utilisateur va cocher des cases. en fonction des case cochées, je vais afficher le résultat dans une textbox.

Ma question: existe une façon un peu plus générale de gérer la chose que d'écrire toutes les combinatoires dans chaque checkbox ?

Dans le code ci dessous qui fonctionne, j'ai 2 coches et donc déjà 4 possibilités.
Or je vais avoir 8 cases à cocher cela va me faire 64 cas !

Merci pour vos conseils
Denis

Code:

---

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

Private Sub CheckBox1_Click() If CheckBox1.Value = False And CheckBox2.Value = False Then TextBox1 = "vert" If CheckBox1.Value = True And CheckBox2.Value = False Then TextBox1 = "rouge" If CheckBox1.Value = False And CheckBox2.Value = True Then TextBox1 = "violet" If CheckBox1.Value = True And CheckBox2.Value = True Then TextBox1 = "jaune" End Sub Private Sub CheckBox2_Click() If CheckBox1.Value = False And CheckBox2.Value = False Then TextBox1 = "vert" If CheckBox1.Value = True And CheckBox2.Value = False Then TextBox1 = "rouge" If CheckBox1.Value = False And CheckBox2.Value = True Then TextBox1 = "violet" If CheckBox1.Value = True And CheckBox2.Value = True Then TextBox1 = "jaune" End Sub

---

Bonjour

Citation:

---

Or je vais avoir 8 cases à cocher cela va me faire 64 cas !

---

comment as-tu fait ce calcul ? T'es sûr que cela ne ferait pas .... 255 256 ?
De toutes manières : une suggestion
si tu affectes 1 à un état et 0 à l'autre, tes combinaisons possibles sont tous les binaires compris entre 00000000 et 11111111 inclus.
Yapluka. ;)

Je vais en ce samedi matin, non t'écrire ton code sur la base que je t'ai indiquée (trop simple), mais me contenter de t'inviter à regarder ce que retournent ces msgboxes :

Code:

---

1 2 3 4 5 6

MsgBox WorksheetFunction.Bin2Dec("00110101") MsgBox True ^ 2 MsgBox False ^ 2 MsgBox False ^ 2 & True ^ 2   MsgBox WorksheetFunction.Bin2Dec(True ^ 2 & False ^ 2 & True ^ 2)

---

A en comprendre le sens et ... à t'en servir, hein ... ;)

Bonjour,

Code:

---

1 2 3 4 5 6 7

Dim Total As Integer, Bits, Couleur Couleur = Array("vert", "rouge", "violet", "jaune", "vert", "rouge", "violet", "jaune") Bits = Array(0, 1, 2, 4, 8, 16, 32) For i = 1 To 4 Total = Total + Me.Controls("CheckBox" & i) * Bits(i) Next MsgBox Couleur(Abs(Total))

---

Bonjour,
Indépendamment de la réponse des autres intervenants, si tu effectues le même test au clic d'un CheckBox, il est inutile de le répéter à chaque procédure événementielle
Ainsi tu crées une nouvelle procédure nommée par exemple Checking

Code:

---

1 2 3 4 5 6

Sub Checking() If CheckBox1.Value = False And CheckBox2.Value = False Then TextBox1 = "vert" If CheckBox1.Value = True And CheckBox2.Value = False Then TextBox1 = "rouge" If CheckBox1.Value = False And CheckBox2.Value = True Then TextBox1 = "violet" If CheckBox1.Value = True And CheckBox2.Value = True Then TextBox1 = "jaune" End Sub

---

que tu invoques pour chaque click comme par exemple

Code:

---

1 2 3

Private Sub CheckBox1_Click() Checking End Sub

---

Merci Philippe et Dysorthographie,

En tatonant j'a essayé de comprendre avec mes 4 boutons.
En fait la boucle donne la position de l'information dans la zone array, mais il faut mettre des valeurs vides pour tous les cas pour que le pointeur renvoie la bonne valeur.
Je pensais pouvoir forcer les valeur dans le tableau genre Couleur(Array(3)) = "Bouton 1" pour ne renseigner que les valeurs utiles, mais la syntaxe n'est pas la bonne, je vais chercher.
Ca fonctionne, je vais le transposer dans mon application à 8 choix.... enfin, je vais voir si je peux limiter les choix, parce que ça devient fastidieux !
J'espère que je ne vais pas avoir de doublon !

Code:

---

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

Private Sub CheckBox1_Click() Checker_val End Sub Sub Checker_val() Dim Total As Integer, Bits, Couleur 'Couleur = Array(" 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Couleur = Array("Pas de bouton", "", "Bouton 1", "", "Bouton 2", "", "Bouton 1&2", "", "Bouton 3", "", "Bouton 1&3", "", "Bouton 2 & 3", "", "Bouton 1 & 2 & 3", "", "Bouton 4", "", "Bouton 1 & 4", "", "Bouton 2 & 4", "", "Bouton 1&2&4", "", "Bouton 3&4", "", "", "", "Bouton 2&3&4", "", "Bouton 1&2&3&4") Bits = Array(0, 2, 4, 8, 16, 32) For i = 1 To 4 Total = Total + Me.Controls("CheckBox" & i) * Bits(i) Next 'MsgBox Total TextBox1.Value = Couleur(Abs(Total)) End Sub

---

En tout cas Grand merci, cela me permet d'avancer pas à pas.
Denis