Interaction entre deux checkbox

Bonsoir,

Je cherche une solution depuis cette après-midi, je fouine sur le net mais je ne trouve pas le code idéal.

Voila dans mon tableau Excel j'ai deux checkbox (l'un pour OK et l'autre pour NOK).

J'ai appliqué deux procédures VBA comme ci dessous :

Code:

---

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

Private Sub B6_Click()   If CHECKBOX_B6.Value = True Then CHECKBOX_C6.Value = False End If     End Sub   -------------------------------------------   Private Sub C6_Click()   If CHECKBOX_C6 = True Then CHECKBOX_B6 = False End If   End Sub

---

Quand je clique sur l'un (Exemple : CHECKBOX_B6) pour cocher ... l'autre ce décoche (Exemple : CHECKBOX_C6) et vis versa ... c'est déjà une bonne chose !
Mais je vois un défaut quand je l'exécute !!!
Lorsque je clique sur la CHECKBOX_B6 ... la CHECKBOX_C6 se décoche mais réapparait 1/2 seconde pour enfin se redécocher ... (comme un clignotement)

Est-ce qu'il y aurait une personne qui pourrait m'expliquer le pourquoi du comment ?

Matinho

Bonjour,

Pour information, j'ai essayé un autre code mais cela fait la même chose :

Code:

---

1 2 3 4 5

Private Sub CHECKBOX_C6_Click()   CHECKBOX_B6 = Not CHECKBOX_C6   End Sub

---

Bonsoir à tous,

Si ces 2 CheckBox fonctionnent en bascule, pourquoi dans ce cas ne pas utiliser des OptionButton ?
Si l'un est à True, l'autre sera forcément à False. Et inversement.

Salut, moi ça fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox2.Value = False End If End Sub   Private Sub CheckBox2_Click() If CheckBox2.Value = True Then CheckBox1.Value = False End If End Sub

---

Merci de ta réponse HopPopPop :)

Je ne peux pas utiliser des OptionButton car si je veux décocher pour ne rien mettre je ne pourrais pas le faire ...


Merci pour la réponse vidda72 ;)

J'ai essayé ton code mais cela me fait la même chose :/