Discussion :

[gtroadec]

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 :

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

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.

[Marc-L]

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, …

[gtroadec]

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,

[gtroadec]

Bonjour dysorthographie,

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

Merci,

[Invité]

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
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

[Invité]

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 :

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

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

[HopPopPop]

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 :

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

Dim EvitSub As Boolean

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

Code :

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

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 :

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

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

[unparia]

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

[gtroadec]

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,

[unparia]

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)