Discussion :

[matinho]

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 :

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

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 :

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

1
2
3
4
5
Private Sub CHECKBOX_C6_Click()
 
CHECKBOX_B6 = Not CHECKBOX_C6
 
End Sub

[HopPopPop]

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.

[vidda72]

Salut, moi ça fonctionne

Code :

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

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

[matinho]

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 :/