Checkbox vbChecked et vbUnchecked, ne fonctionne que dans un sens

Coucoutte :P

Je travaille sur l’amélioration d'un logiciel (cartoucheur pour jingles) et j'ai besoin de désélectionner des checkbox (qui sont en mode graphique mais ca change rien), quand on en clique une autre.

Pour le sujet, j'ai reproduit de manière symbolique, un form avec 3 checkbox, et le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Private Sub Check1_Click()   If Check2.Value = vbChecked Or Check3.Value = vbChecked Then Check1.Value = vbChecked Check2.Value = vbUnchecked Check3.Value = vbUnchecked '[...]Autres opérations, dans le code du logiciel cartoucheur[...] End If   End Sub   Private Sub Check2_Click()   If Check1.Value = vbChecked Or Check3.Value = vbChecked Then Check1.Value = vbUnchecked Check2.Value = vbChecked Check3.Value = vbUnchecked '[...]Autres opérations, dans le code du logiciel cartoucheur[...] End If   End Sub   Private Sub Check3_Click()   If Check1.Value = vbChecked Or Check2.Value = vbChecked Then Check1.Value = vbUnchecked Check2.Value = vbUnchecked Check3.Value = vbChecked '[...]Autres opérations, dans le code du logiciel cartoucheur[...] End If   End Sub

---

Considérons que pour chaque ligne, je viens de lancer le logiciel, toutes les checkbox sont décochées.

Ce qui fonctionne :
Si je clique sur la 1, et que je clique sur la 2, la 1 se décoche et la 2 se coche.
Si je clique sur la 1, et que je clique sur la 3, la 1 se décoche et la 3 se coche.
Si je clique sur la 2, et que je clique sur la 3, la 2 se décoche et la 3 se coche.

Ce qui ne fonctionne pas :
Si je clique sur la 3, et que je clique sur la 2, la 3 se décoche pas et la 2 ne se coche pas.
Si je clique sur la 3, et que je clique sur la 1, la 3 se décoche pas et la 1 ne se coche pas.
Si je clique sur la 2, et que je clique sur la 1, la 2 se décoche pas et la 1 ne se coche pas.

Ce code fonctionne encore moins :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Private Sub Check1_Click()   If Check2.Value = vbChecked Or Check3.Value = vbChecked Then If Check2.Value = vbChecked Then Check2.Value = vbUnchecked If Check3.Value = vbChecked Then Check3.Value = vbUnchecked '[...]Autres opérations, dans le code du logiciel cartoucheur[...] End If   End Sub   Private Sub Check2_Click()   If Check1.Value = vbChecked Or Check3.Value = vbChecked Then If Check1.Value = vbChecked Then Check1.Value = vbUnchecked If Check3.Value = vbChecked Then Check3.Value = vbUnchecked '[...]Autres opérations, dans le code du logiciel cartoucheur[...] End If   End Sub   Private Sub Check3_Click()   If Check1.Value = vbChecked Or Check2.Value = vbChecked Then If Check1.Value = vbChecked Then Check1.Value = vbUnchecked If Check2.Value = vbChecked Then Check2.Value = vbUnchecked '[...]Autres opérations, dans le code du logiciel cartoucheur[...] End If   End Sub

---

Je comprends rien et ça fait 5h que je rame :mur:

Une tite idée pour le palmé ? :oops:

Merkouin :)

Salut

Essais de mettre une variable EncoursTraitement global au niveau Form,
dés que tu entre dans une des procédures Private Sub Check????_Click() tu mets une nouvelle condition If EncoursTraitement= True Then exit Sub la ligne suivante est EncoursTraitement = True, ton code s’exécute, et juste avant de quitter la procédure, tu remets la variable à EncoursTraitement = False.

Exemple pour :

Code:

---

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

Private Sub Check1_Click() If EncoursTraitement= True Then exit Sub EncoursTraitement = True If Check2.Value = vbChecked Or Check3.Value = vbChecked Then Check1.Value = vbChecked Check2.Value = vbUnchecked Check3.Value = vbUnchecked '[...]Autres opérations, dans le code du logiciel cartoucheur[...] EncoursTraitement = False End If   End Sub

---

A faire pour chaque CheckBox.

Et si tu choisisais des RadioButtons ?

Hello,

Merci pour ta réponse :)

Je me dois d'apporter quelques précisions sur le besoin du coup :

-Le logiciel est Jingle Palette, c’est un logiciel existant qui n'est pas de ma création (autant dire que j'ai déjà paumé pas mal de neurones à comprendre comment ça avait été fait, ne serait-ce que pour faire les quelques modifs que j'ai déjà faites).

Pièce jointe 585706
- Les checkboxes sont en mode graphique et correspondent aux boutons de fonction Assign Loop, Assign Volume, Autorepeat, Touch Play et Play / Stop.
L'appui sur un de ces boutons change la couleur de tous les jingles (la couleur dépend de la fonction choisie), et on clique sur le jingle sur lequel on veut appliquer la fonction choisie, ou bien on reclique sur la fonction pour annuler. A priori avec des boutons radio (même en mode graphique), on ne peut pas en sélectionner aucune (donc pour annuler).

- L'idée étant que si par exemple on a cliqué sur Assign loop et que l'on clique sur Assign Volume, ca décoche Assign Loop et ca mette à jour la bonne couleur pour les boutons de choix du jingle.

- Il y a d'autres opérations après le End if de chaque Check?_Click(), je pense pas pouvoir mettre un Exit Sub du coup.

J'ai remarqué que le fait de changer la valeur d'une checkbox dans le Private sub d'une autre Chekbox, faisait en fait comme si on cliquait dessus. Le système se mort un peu la queue.

Salut (Re)

Citation:

---

J'ai remarqué que le fait de changer la valeur d'une checkbox dans le Private sub d'une autre Chekbox, faisait en fait comme si on cliquait dessus. Le système se mort un peu la queue.

---

Et oui, c'est bien pourquoi je te proposais une variable qui évite de jouer les Subs click des autres CheckBoxs, perso je ne voie pas comment tu peux faire autrement.

Citation:

---

Il y a d'autres opérations après le End if de chaque Check?_Click(), je pense pas pouvoir mettre un Exit Sub du coup.

---

Le Exit Sub en début de procédure peut être mis plus loin dans cette même procédure, ou le fait de remettre la variable EncoursTraitement à False pareillement.
Pour le Fun, postes une des procédures Check????_Click(), il doit bien être possible de trouver une solution.

Pooooc poc poc poc poc (Ouais, ca rend débile :lol: )

Alors, voici le code comprenant le début de la modif :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

Private Sub ckAutoRepI_Click() On Error GoTo Error_Routine If ckAssVol.value = vbChecked Or ckLoopI.value = vbChecked Or ckTouchI.value = vbChecked Or ckPlayStopI.value = vbChecked Then ckAssVol.value = vbUnchecked ckAssVol.BackColor = vbButtonFace ckLoopI.value = vbUnchecked ckLoopI.BackColor = vbButtonFace ckTouchI.value = vbUnchecked ckTouchI.BackColor = vbButtonFace ckPlayStopI.value = vbUnchecked ckPlayStopI.BackColor = vbButtonFace For i = 0 To 29 b_Jingle(i).BackColor = Jing(i).Color 'vbButtonFace Next i End If If ckAutoRepI.value = vbUnchecked Then ckAutoRepI.BackColor = vbButtonFace ManiPulate = False For i = 0 To 29 b_Jingle(i).BackColor = Jing(i).Color 'vbButtonFace Next i Else tmout = 0 ManiPulate = True ckAssign.value = vbUnchecked b_tmAnJin.value = vbUnchecked ckAssVol.value = vbUnchecked ckLoopI.value = vbUnchecked 'ckAutoRepI.value = vbUnchecked ckTouchI.value = vbUnchecked ckPlayStopI.value = vbUnchecked For i = 0 To 29 Jing(i).Color = b_Jingle(i).BackColor b_Jingle(i).BackColor = &HFFFF& Next i ckAutoRepI.BackColor = &HFFFF& End If Exit_Routine: Exit Sub Error_Routine: Debug.Assert False ErrorLog "frmMain.ckAutoRepI_Click" Resume Exit_Routine End Sub

---

Ton idée d'ajout d’une variable a été une bonne piste :P
J'ai ajouté une variable dans laquelle je stocke le nom de la dernière CheckBox cochée pour l'utiliser sur le clic d'une autre des checkboxes "cousines" (lol) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

Private Sub ckAutoRepI_Click() On Error GoTo Error_Routine If LastCheckBox = "ckAssVol" Then ckAssVol.value = vbUnchecked ckAssVol.BackColor = vbButtonFace End If If LastCheckBox = "ckLoopI" Then ckLoopI.value = vbUnchecked ckLoopI.BackColor = vbButtonFace End If If LastCheckBox = "ckAutoRepI" Then ckAutoRepI.value = vbUnchecked ckAutoRepI.BackColor = vbButtonFace End If If LastCheckBox = "ckTouchI" Then ckTouchI.value = vbUnchecked ckTouchI.BackColor = vbButtonFace End If If LastCheckBox = "ckPlayStopI" Then ckPlayStopI.value = vbUnchecked ckPlayStopI.BackColor = vbButtonFace End If LastCheckBox = "ckAutoRepI" If ckAutoRepI.value = vbUnchecked Then ckAutoRepI.BackColor = vbButtonFace ManiPulate = False For i = 0 To 29 b_Jingle(i).BackColor = Jing(i).Color 'vbButtonFace Next i LastCheckBox = "" Else tmout = 0 ManiPulate = True ckAssign.value = vbUnchecked b_tmAnJin.value = vbUnchecked ckAssVol.value = vbUnchecked ckLoopI.value = vbUnchecked 'ckAutoRepI.value = vbUnchecked ckTouchI.value = vbUnchecked ckPlayStopI.value = vbUnchecked For i = 0 To 29 Jing(i).Color = b_Jingle(i).BackColor b_Jingle(i).BackColor = &HFFFF& Next i ckAutoRepI.BackColor = &HFFFF& End If Exit_Routine: Exit Sub Error_Routine: Debug.Assert False ErrorLog "frmMain.ckAutoRepI_Click" Resume Exit_Routine End Sub

---

En gras, les parties du code que j'ai changé. A priori le résultat est celui attendu.
Je passe en résolu, mais si il y a plus propre, pourquoi pas :P

Merkouin :)