Pb de comportement de checkbox

Bonjour à tous,

J'ai un petit problème pour coder le comportement d'un ensemble de checkboxes.
Ma macro propose de réaliser 6 rapports différents. L'utilisateur coche les rapports qui l'intéressent puis un bouton déclenche le traitement.

Aux 6 cases à cocher des rapports, j'en ai ajouté une septième "Tous".

Lorsque je coche/décoche "Tous", les autres cases suivent. Pas de problème.
Maintenant, si à partir d'une situation où toutes les cases sont cochées, je décoche un rapport, je voudrais que la case "Tous" se décoche également. Ca, j'y arrive.
Le problème, c'est que lorsque "Tous" se décoche, elle décoche aussi toutes les autres ! Et je me retrouve sans cases cochées alors que j'attends que les cases des autres rapports restent cochées.

Ci-dessous mon code, super basique :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub cb_Tous_Click()   CB_Schedule.Value = CB_Tous.Value CB_RetT = CB_Tous.Value CB_Jobs = CB_Tous.Value CB_Frequences = CB_Tous.Value CB_Dependances = CB_Tous.Value CB_Evenements = CB_Tous.Value   End Sub   Private Sub cb_schedule_click()   If CB_Schedule.Value = False Then CB_Tous.Value = False   End Sub

---

Je ne comprends pas pourquoi lorsque la procédure cb_schedule_clik s'exécute, la procédure cb_Tous_click s'exécute aussi.

Merci pour votre aide. Je dois rater un truc.

Bonjour,

pourtant logique rien qu'en lisant la ligne de code n°14 ‼   A mettre en commentaire pour vérifier …

___________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim IsNotDecocheTousCB As Boolean Private Sub cb_Tous_Click() If IsNotDicocheTousCB Then Exit Sub CB_Schedule.Value = CB_Tous.Value CB_RetT = CB_Tous.Value CB_Jobs = CB_Tous.Value CB_Frequences = CB_Tous.Value CB_Dependances = CB_Tous.Value CB_Evenements = CB_Tous.Value   End Sub   Private Sub cb_schedule_click() IsNotDecocheTousCB = True If CB_Schedule.Value = False Then CB_Tous.Value = False IsNotDecocheTousCB = False End Sub

---

Bonjour Marc,

Ce n'est pas facile à expliquer par écrit mais :

Ce que j'attends de la ligne 14, c'est que si je décoche cette case alors la case "Tous" se décoche aussi mais que les cases des autres rapports restent cochées.

Or ce qui semble se passer, c'est que lorsque la ligne 14 s'exécute suite à une action Click, elle décoche bien la case "Tous". Mais il semble que la procédure Click associée à cette case "Tous" s'exécute aussi. Ce qui ne devrait pas être vu que je n'ai pas cliqué sur cette case "Tous".

J'espère que j'arrive à être clair.

Merci,

Bonjour dysorthographie,

Ca ne marche pas mais je vois l'idée.
Je vais travailler dessus.

Merci,

CB_Tous.Value = False et cb_Tous_Click() c'est la même chose!

ça Dim IsNotDecocheTousCB AsBoolean c'est la premier ligne de ton code touy en haut du formulaire

Édite:
J'avais prévenu dysorthographie!

Code:

---

1 2 3

Dim IsNotDecocheTousCB AsBoolean Private Sub cb_Tous_Click() If IsNotDicocheTousCB Then Exit Sub

---

Bonjour à tous,

Le problème est que les événements des controles CheckBox s'interfèrent entre eux.
Comme a dit dysorthographie, il faut créer une variable boolean pour éviter cela.
A mettre tout en haut du code dans la partie "Général"

Code:

---

Dim EvitSub As Boolean

---

puis pour chacune des procédures des checkbox en prenant soin de changer les noms

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CB_Schedule_Click()   If EvitSub Then Exit Sub   If CB_Tous And Not CB_Schedule Then EvitSub = True CB_Tous = False End If EvitSub = False   End Sub

---

La procédure du checkbox tous

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CB_Tous_Click()   If EvitSub Then Exit Sub   EvitSub = True CB_Schedule.Value = CB_Tous.Value CB_RetT = CB_Tous.Value CB_Jobs = CB_Tous.Value CB_Frequences = CB_Tous.Value CB_Dependances = CB_Tous.Value CB_Evenements = CB_Tous.Value EvitSub = False   End Sub

---

Bonjour
L'évènement click d'une checkbox est déclenché par toute modification (de False à True ou de True à False) de la propriété Value de la checkbox, que cette modification soit le résultat d'un click sur la checkbox ou celui d'une instruction par code exécutée depuis n'importe o^.
Il est donc absolument normal que l'évènement CB_Tous_Click soit déclenché lorsque tu cliques sur la checkbox CB_Schedule puisque l'une des instructions résultant de ce clic modifie la propriété Value de la checkBox CB_Tous

Merci à tous pour votre aide.

@ unparia : j'étais arrivé à cette conclusion également.

Cependant, il me semble qu'il existe un évènement Change. C'est dommage que le Click ne fasse pas la différence entre une action directe sur le contrôle et une modification de la propriété. Quelle différence avec le Change ?

Bon, je suis rentré chez moi et mon petit ne va pas me laisser le temps de coder ce soir.
Je reviens vers vous demain pour le passage en "RESOLU" après confirmation.

Bonne soirée,

Citation:

---

Quelle différence avec le Change ?

---

Même punition, même motif. Si tu changes un état, les deux évènements sont provoqués (le Change en 1er, le click en second)

Bonjour,

Encore merci pour votre aide.
J'ai ajouté une petite ligne de code pour que si tous les rapports sont cochés individuellement, la case "Tous" s'active. C'est plus mieux ;).

Je joins un fichier fonctionnel pour un éventuel visiteur.

Maintenant, je n'ai plus qu'à voir si je peux optimiser le code. Je trouve la syntaxe lourde et les cases "clignotent" du fait des multiples mises à jour.
Peut-être en jouant avec la propriété EnableEvents.

Je reviendrai poster si j'ai un résultat plus satisfaisant.

Bonne continuation,