cocher un seul checkbox sur 2 uniquement en permettant de les décocher

[Ark30]

Je reviens sur ma question qui était d'empêcher que 2 checkboxs soient cochés en même temps:
La solution était le code suivant:

Option Explicit
Private Sub CheckBox1_Click()
CheckBox2 = Not CheckBox1
End Sub
Private Sub CheckBox2_Click()
CheckBox1 = Not CheckBox2
End Sub


Cependant, si j'ai l'un des deux checkboxs cochés et que je le décoche, l'autre est coché automatiquement à cause du not.

Je reformule ma question car j'aimerais savoir comment faire pour décocher les checkboxs car l'application ne doit pas m'obliger à avoir l'un des deux checkboxs cochés.

Avec mes remerciements,

 

[phlaurent55]

Re : cocher un seul checkbox sur 2 uniquement en permettant de les décocher

bonjour Ark30,

une solution (un peu moins souple) car il faut décocher un pour pouvoir cocher l'autre
mais qui permet de décocher les deux et interdit de cocher les deux en même temps

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

à+
Philippe

 

[Ark30]

Re : cocher un seul checkbox sur 2 uniquement en permettant de les décocher

Merci infiniment Philippe
;o)

 

[stefan373]

Bonsoir ark30, philippe et le forum.

Un peu plus compliquer 🙂mais permet de cocher ou décocher plusieurs checkbox en rajoutant les numéro dans Array(2, 3)...

Private Sub CheckBox1_Click()
Dim tablo As Variant
Dim i As Byte
tablo = Array(2)
If CheckBox1.Value = True Then
For i = LBound(tablo) To UBound(tablo)
Me.Controls("CheckBox" & tablo(i)).Value = True
Next i
End If
If CheckBox1.Value = False Then
For i = LBound(tablo) To UBound(tablo)
 Me.Controls("CheckBox" & tablo(i)).Value = False
Next i
End If
End Sub

A voir, selon vos besoins.

A +

 

[Pierrot93]

Re : cocher un seul checkbox sur 2 uniquement en permettant de les décocher

bonjour,

pas top de multiplier les posts pour une même question...
https://www.excel-downloads.com/thr...e-userform-detre-coches-en-meme-temps.165576/

 

[Neomajore]

Re : cocher un seul checkbox sur 2 uniquement en permettant de les décocher

Merci pour vos post, je cherchais justement se que Ark30 fesait, comme quoi , se que l'on veux pas, convient parfaitement a d'autre 😀