Discussion :

[Denis_67]

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 :

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

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

[unparia]

Bonjour

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 :

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

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

[Invité]

Bonjour,

Code :

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

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

[Philippe Tulliez]

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 :

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

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 :

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

1
2
3
Private Sub CheckBox1_Click()
 Checking
End Sub

[Denis_67]

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 :

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

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