Problème de formulaire avec un checkbox COCHER/DECOCHER

[benito]

Bonjour à tous,

J'ai un petit problème de formulaire. Il contient 5 checkboxes + 1 (checkbox 6) qui permet de tout cocher tout décocher.
Le problème est le suivante : quand je clique sur n'importe laquelle des checkboxes (1 à 5) , tout se décoche alors que je voudrais juste décocher la case 6 (tout cocher/décocher) pour que ce soit logique

voila le code

Private Sub CheckBox1_Click()
Call Testcompatibilité1
Call Testcompatibilité2
End Sub

Private Sub CheckBox2_Click()
Call Testcompatibilité1
Call Testcompatibilité2
End Sub

Private Sub CheckBox3_Click()
Call Testcompatibilité1
Call Testcompatibilité2
End Sub

Private Sub CheckBox4_Click()
Call Testcompatibilité1
Call Testcompatibilité2
End Sub

Private Sub CheckBox5_Click()
Call Testcompatibilité1
Call Testcompatibilité2
End Sub

Private Sub CheckBox6_Click()
If CheckBox6.Value = False Then
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False
End If
End Sub


Function Testcompatibilité1()
If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = True And CheckBox5.Value = True Then
CheckBox6.Value = True
End If
End Function

Function Testcompatibilité2()
If CheckBox1.Value = False Or CheckBox2.Value = False Or CheckBox3.Value = False Or CheckBox4.Value = False Or CheckBox5.Value = False Then
CheckBox6.Value = False
End If
End Function


PS : je vous mets une photo du formulaire pour que ce soit plus pratique

 

[Denis]

Re : Problème de formulaire avec un checkbox COCHER/DECOCHER

Bonjour benito et le forum
Soit je n'ai rien compris (possible Lol), soit chez moi cela fonctionne. Peut être un problème ailleurs!
Bon courage et à+
Denis

 

[benito]

Re : Problème de formulaire avec un checkbox COCHER/DECOCHER

Quand on clique sur le bouton 6 tout se déselectionne et si on reclique on sélectionne tout
En revanche, quand on clique sur un des 5 autres checkboxes tout se désélectionne alors que je veux décocher juste la checkbox 6 (TOUT cocher / décocher ) ce qui est normal car je viens de décocher une des 5 checkboxes.

 

[Denis]

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

 

[benito]

Re : Problème de formulaire avec un checkbox COCHER/DECOCHER

Merci bcp mais c'est quoi exactement Som ?

 

[benito]

Re : Problème de formulaire avec un checkbox COCHER/DECOCHER

ca ne fonctionne toujours pas malheureusement

 

[Denis]

Re : Problème de formulaire avec un checkbox COCHER/DECOCHER

Re,
Essais ce fichier et dis moi ce qui ne va pas.
à+
Denis

 

[benito]

Re : Problème de formulaire avec un checkbox COCHER/DECOCHER

c'est exactement ce que je voulais !
Un grand merci et bonne soirée
Benito