Discussion :

[mobiclick]

Bonjour le forum,
J'aimerais savoir si on peut associer ,à un checkbox,un évènement du genre "décocher" comme c'est le cas pour l'évènement "click".Dans un USF ,j'ai deux checkbox avec le code suivant:

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()
If CheckBox1.Value Then
CheckBox1.Value = 1
CheckBox2.Value = 0
End If
 
End Sub
 
Private Sub CheckBox2_Click()
If CheckBox2.Value Then
CheckBox2.Value = 1
CheckBox1.Value = 0
End If
 
End Sub

Lorsque je coche checkbox1 alors checkbox 2 sera décochée.
Je voudrais que lorsque je décoche checkbox1 ,alors checkbox 2 sera coché.
Grand Merci

[mercatog]

Utilise plutôt des OptionButon

[mobiclick]

Merci Mercatog,
En réalité,j'ai plusieurs checkbox dans mon USF...au total 24 qui marchent deux à deux... chaque couplet doit forcément représenter une case cochée et l'autre décochée (pas cochées toutes les deux et pas décochées toutes les deux)
Du coup ,les optionbutton ne font pas vraiment l'affaire ,donc je suis un peu bloqué

[mercatog]

Au contraire, c'est la définition même des OptionButton
Seulement, tu peux affecter, à chaque paire ou plusieurs, un GroupName différent et en définissant la valeur par défaut de l'un d'eux à True (propriété Value)

[fring]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    CheckBox2.Value = False
Else
    CheckBox2.Value = True
End If
End Sub

[AlainTech]

Bonjour,

Nettement plus simple:

Code :

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

1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
  CheckBox2.Value = Not CheckBox1.Value
End Sub
 
Private Sub CheckBox2_Click()
  CheckBox1.Value = Not CheckBox2.Value
End Sub

Mais je vais dans le même sens que mercatog, les OptionButtons seraient la meilleure solution.
Il suffit de les grouper 2 à 2 dans des Frames (Cadres en français).

[mobiclick]

Bonjour le forum,
Désolé pour le retard,car je suis en train de tester mon classeur
Je vous remercie énormément pour vos réponses très pertinentes(mercatog,fring et AlainTech)...Gràce à vous j'ai désormais plusieurs possibilités et c'est à moi de choisir celle qui répond le plus à mes attentes...je vous remercie aussi car vous m'incitez à chaque discussion que j'ouvre à faire quelques lectures passionantes...
Bonne continuation