Re : Problème de formulaire avec un checkbox COCHER/DECOCHER
Re bonjour le fil,
Essais ceci :
Private Sub CheckBox1_Click() 'a faire à l'identique pour les 2, 3 , 4 et 5
If Som = 1 Then Exit Sub
Som = 0
For i = 1 To 5
Som = Som + Me.Controls("CheckBox" & i)
Next
If Som = -5 Then Me.CheckBox6 = True Else Me.CheckBox6 = False
Som = 0
End Sub
Private Sub CheckBox6_Click()
If Som <> 0 Then Exit Sub
Som = 1
For i = 1 To 5
Me.Controls("CheckBox" & i) = Me.CheckBox6
Next
Som = 0
End Sub
Il y a mieux, mais ça marche!
Bon courage et à+
Denis