Boucles conditions simultanées.

Bonjour,

Je dispose d'un UF qui est complété par un utilisateur. Dans cet UF, j'ai 3 cases que je peux cocher. Mais j'ai le choix entre cocher 1 des 3 cases, 2 des 3 cases ou les 3 cases en même temps.

Pour ce faire, j'ai simplement utilisé des If. Le problème c'est que je ne peux cocher qu'une seule des 3 cases puisque une fois que la condition If est vérifiée, le programme s'arrête.

Quel type de boucle puis-je utiliser ?


PS: Voici le code que j'utilise

Code:

---

1 2 3 4 5 6 7

If CAO.Value = True Then ' ' If maquettage.Value = True Then ' ' If impression.Value = True Then

---

C'est un exemple le code peut être différent
a renouveler pour les autres cases à cocher.
Cordialement 8-)

Code:

---

1 2 3 4 5 6 7

Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("j2") = "Oui" Else Range("j2") = "non" End If End Sub

---

Merci de ta réponse,

Mais sauf erreur de ma part il me semble que "If" ne peut gérer que 2 conditions maxi , non ?

Je ne peux pas utiliser un Select Case ?

Pas du tout, la fonction if peut avoir de multiples possibilités.
exemple:

Code:

---

1 2 3 4 5 6 7 8 9

If Range("A1") = 1 then 'Code ElseIf Range("A1") = 2 then 'Code ElseIf Range("A1") = 3 then 'Code ElseIf Range("A1") = 4 then 'Code End if

---

8-)

Je vien de tester sur un fichier "Test", voici mon code.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click() If CheckBox1.Value = True Then Cells("1,1").Value = "X" ElseIf CheckBox2.Value = True Then Cells("2,2").Value = "X" ElseIf CheckBox3.Value = True Then Cells("3,3").Value = "X" End If End Sub

---

Ce programme fonctionne si je coche 1 des cases. Mais si par exemple je coche 2 cases ou les 3, je n'ai que la 1ere instruction qui est réalisée. En gros je voudrais que si je coche 2 cases, les 2 instructions soit réalisées.
Quelle boucle dois-je associer ?

Bonjour
En écrivant des blocs if complets (sans else ni elseif) -->> exemple -->>

Code:

---

1 2 3 4 5 6

if a = b then ..... instructions 1 end if if c = d then ..... instructions 2 end if

---

Mais en aucun cas ne seront exécutées SIMULTANEMENT les instructions 1 et les instructions 2.
Dans cet exemple : si a = b ET que c = d, les instructions 1 seront exécutées et- les instructions 2 ne le seront qu'après la fin des instructions 1

On ne peut pas mettre les 3 checkbox dans des séries de If.
Chacun dans le UserForm a un Checkbox click qui lui appartient et dans chacun des trois il faut mettre un code. Mais les trois checkBoxs sont séparés

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("j2") = "Oui" Else Range("j2") = "non" End If   End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then Range("k2") = "Oui" Else Range("k2") = "non" End If End Sub   Private Sub CheckBox3_Click() If CheckBox3.Value = True Then Range("l2") = "Oui" Else Range("l2") = "non" End If End Sub

---

Bonjour Transitoire
Et qui force à utiliser l'évènement click de chaque CheckBox ? -->> personne
Mécanisme tout simple !
un bouton de commande et dans l'évènement Click de CE bouton :

Code:

---

1 2 3 4 5 6 7

Si la checkbox1 est cochée alors .... Fin si Si la checkbox2 est cochée alors .... Fin si etc ..

---

C'est exactement ce dont je dispose !

Regarde le code de mon fichier test.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click() If CheckBox1.Value = True Then Cells("1,1").Value = "X" ElseIf CheckBox2.Value = True Then Cells("2,2").Value = "X" ElseIf CheckBox3.Value = True Then Cells("3,3").Value = "X" End If End Sub

---

Je coche la case 1, je valide --> 1 résultat
Je coche la case 1 + 2, je valide --> 1 autre résultat.

J'ai une solution mais le code sera indigeste : 3 cases donc 6 évènement possibles donc 6 If... Mais j'ai un doute sur le fonctionnement.

Salut

Citation:

---

Envoyé par sbobi

[...]

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click() If CheckBox1.Value = True Then Cells("1,1").Value = "X" ElseIf CheckBox2.Value = True Then Cells("2,2").Value = "X" ElseIf CheckBox3.Value = True Then Cells("3,3").Value = "X" End If End Sub

---

[...]

---

Lorsque checkBox1 est cochée, le code qui suit le premier ElseIF jusqu'au End IF n'est pas exécuté (Else => Sinon)

Idem pour le second ElseIF lorsque checkbox1 n'est pas coché mais que Checkbox2 l'est. Dans ce cas, le code qui suit le second ElseIF n'est pas exécuté.

As-tu testé la solution de Unparia? Elle teste chaque checkbox indépendamment de l'état des autres.


Ce qui serait intéressant, c'est que tu nous expliques ce que tu souhaites réaliser en français indépendamment de la solution VBA mise en place avec une copie d'écran de ton userform. Nous pourrions probablement mieux t'aider.

Pour comprendre quels sont les blocs qui sont exécutés, tu pourrais utiliser le mode pas-à-pas (se placer dans la procédure puis F8). Chaque pression sur F8 exécute la ligne de code en jaune. Tu peux ainsi voir ce qui se passe pour les différentes valeurs de tes checkbox.