Problème checkbox et cellule boolean

Il reste quand-même dommage de ne pas mettre en oeuvre quelque-chose d'aussi simple que ceci :
Nouveau projet :
1) Sur Feuil1 : "Voilà une consigne" en A1 et 0 en B1

2) Sur un userform :
- Une textbox Textbox1
- une checkbox CheckBox1
et ce code :

Code:

---

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

Private Sub CheckBox1_Click() CheckBox1.Value = Worksheets("Feuil1").Range("B1") End Sub   Private Sub UserForm_Activate() CheckBox1.ControlSource = "Feuil1!B1" End Sub   Private Sub CheckBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox1.Text = Worksheets("Feuil1").Range("A1") If CheckBox1.Value = False Then Worksheets("Feuil1").Range("B1") = True End If End Sub

---

Au lancement du userform : on constate que la textbox est vide et que la checkbox n'est pas cochée
On clique sur la checkbox --->>> la consigne apparait dans la textbox et la checkbox est cochée
L'utilisateur est alors considéré comme ayant lu
S'il clique à nouveau sur la checkbox (pour relire la consigne éventuellement effacée par d'autres gestes) : la consigne réapparait dans la textbox et la checkbox reste cochée (il avait lu, donc non à décocher)
Voilà le principe simple. On peut s'amuser à l'agrémenter (modification du Caption de la checkbox selon qu'elle est non cochée - pour inviter à prendre connaissance de la consigne - puis, lorsqu'elle est cochée, d'un texte précisant qu'on peut toujours relire en cliquant sur la checkbox)
Voilà. Tout bête et sans va-et-vient en tous sens ni interventions par booléenne pour éviter l'effet "chien se mordant la queue".
Nota : que le mot "VRAI" ou "FAUX" apparaisse en B1 sur certaines machines et "TRUE" ou "FALS"E sur d'autres n'a absolument rien à voir avec la valeur conservée en mémoire par Excel (elle sera toujours True ou False)

EDIT : on obtiendrait d'ailleurs le même résultat en ne liant qu'après le mouseup et en bloquant ensuite (puisque si a été lu, a été lu)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CheckBox1_Click() CheckBox1.Value = Not CheckBox1.Value ' on force à garder l'état End Sub   Private Sub CheckBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox1.Text = Worksheets("Feuil1").Range("A1") ' on affiche systématiquement la consigne (lecture ou relecture) Worksheets("Feuil1").Range("B1") = True ' si on a cliqué, on a affiché et on est supposé lire CheckBox1.ControlSource = "Feuil1!B1" ' on lie maintenant B1 à la checkbox End Sub

---

Il vaut toutefois mieux mettre la liaison :

Code:

---

CheckBox1.ControlSource = "Feuil1!B1"

---

dans l'évènement Activate même de l'Userform, si l'on veut que l'état de la checkbox soit conservé entre 2 sessions ou entre deux chargements de l'userform.

@unparia
Ta solution est me parait vraiment bien, mais dans mon projet, il n'y a pas qu'une seule consigne. J'ai actuellement 6 TextBox (avec 6 CheckBox correspondantes) et une barre de défilement verticale, car il faut s'imaginer plusieurs dizaines de consignes à afficher, et comme il faut y accéder rapidement, elles sont affichées immédiatement, ce qui est très légèrement plus rapide à utiliser (pour l'utilisateur, mais alors vraiment pas beaucoup, mais bon, contrainte du patron, le maximum de choses doit être visible immédiatement).
Ensuite, le problème que poserait ta solution dans mon cas, c'est que l'utilisateur ne lit pas toujours la consigne en entier, pour voir l'importance qu'elle a, la considérer comme lue alors que ce n'est pas le cas serait donc problématique (même si l'inverse, considérer une consigne non lue alors que c'est le cas, est tout autant problématique).
Sinon, dans un autre contexte, je préfère ta solution :)

Bonjour Unparia,
Dans ces trois lignes

Code:

---

1 2 3

If CheckBox1.Value = False Then Worksheets("Feuil1").Range("B1") = True End If

---

Ce serait plus simple d'écrire

Code:

---

Worksheets("Feuil1").Range("B1").Value = Not (CheckBox1.Value)

---

Il y a peut-être d'autres lignes avec le même test conditionnel mais celles-c ont attirés mon attention

A jeanmidudu

1)

Citation:

---

Ensuite, le problème que poserait ta solution dans mon cas, c'est que l'utilisateur ne lit pas toujours la consigne en entier, pour voir l'importance qu'elle a, la considérer comme lue alors que ce n'est pas le cas serait donc problématique (même si l'inverse, considérer une consigne non lue alors que c'est le cas, est tout autant problématique).

---

Il me semble bien t'en avoir fait la remarque beaucoup plus haut et avoir même mentionné la seule manière de s'assurer de ce qu'un texte avait été lu et pas seulement affiché !;)
2)

Citation:

---

il n'y a pas qu'une seule consigne. J'ai actuellement 6 TextBox (avec 6 CheckBox correspondantes) et une barre de défilement verticale, car il faut s'imaginer plusieurs dizaines de consignes à afficher

---

Oui ? Et alors ? Je ne vois personnellement aucun problème à faire sur chacune ce que tu fais sur une. C'est à toi (c'est TON projet) de savoir développer ce qu'il convient de développer, à savoir la création dynamique de tout ce dont tu as besoin (en fonction des lignes de consignes que tu as dans ta feuille de calcul). Et même de créer un pseudo groupe de contrôles indexés! C'est là tout simplement un autre aspect, qu'il t'appartient de gérer.

A Philippe Tulliez : regarde mon édit : Même pas la peine de cette expression conditionnelle (s'il a cliqué, il a affiché --->> et donc : True). Et je préfère mettre à True lma cellule B1 (puisqu'elle est liée) plutôt que la checkbox (ce qui provoquerait un click avant même l'effet de la liaison). En modifiant la cellule, je provoque la modification ultérieure de l'état de la checkbox (les deux deviennent True) et si un click se déclenche alors (que ce soit manuellement ou du fait de sa mofification du fait de celle de la cellule) ce click reste sans effet en raison du rétablissement immédiat. C'est même en cela que réside l'astuce.

Bonjour,
Et bien dans le code de ton "EDIT", pour les trois premières lignes il me semble que c'est plus catastrophique encore.

Citation:

---

Code:

---

1 2 3

Private Sub CheckBox1_Click() CheckBox1.Value = Not CheckBox1.Value ' on force à garder l'état End Sub

---

---

Tu réactives l'événement. N'as-tu pas un message "Mémoire insuffisante" qui apparaît à un moment donné ?

Citation:

---

Tu réactives l'événement. N'as-tu pas un message "Mémoire insuffisante" qui apparaît à un moment donné ?

---

Ben non.
Tu as ce problème, toi, sur ta machine ?
Je viens d'ailleurs, par acquit de conscience, d'ajouter un label, de modifier un peu (pour voir) et de lancer :

Code:

---

1 2 3 4 5

Private Sub CheckBox1_Click() CheckBox1.Value = Not CheckBox1.Value Label1.Caption = Timer DoEvents End Sub

---

Mon label reste bien à l'identique tant que je ne clique pas à nouveau
EDIT : et voilà maintenant plus de 10 minutes que (après avoir cliqué) j'observe (sans rien faire d'autre que de fumer en buvant un café) les réactions dans le gestionnaire de tâches (performances). Il ne bouge pas d'un poil (ce qui confirme l'immobilité dans le label)

EDIT 2 : ceci étant constaté, je comprends la logique de ta remarque et ton étonnement.
Il serait en effet logique que le click se reproduise sans cesse, puisque l'on modifie (donc sans cesse également) l'état de la checkbox. Or, il n'en est rien (constat).
L'explication se trouve peut-être dans le fait d'une latence du contrôle, pris de vitesse ?
La réponse est oui et en voilà la preuve. On va ce coup-ci forcer les choses en laissant à ce contrôle le temps de prendre la main.

Code:

---

1 2 3 4 5 6 7 8

Private Sub CheckBox1_Click() For i = 1 To 1000 ' on donne au contrôle le temps dont il a besoin DoEvents Next CheckBox1.Value = Not CheckBox1.Value Label1.Caption = Timer DoEvents End Sub

---

Ah ah ! Là oui, ce diable fait ce qu'il veut, maintenant qu'on le lui a permis ....;)
Amusant, non ?
Amitiés

Bonjour,

Citation:

---

Ben non.
Tu as ce problème, toi, sur ta machine ?
Je viens d'ailleurs, par acquit de conscience, d'ajouter un label, de modifier un peu (pour voir) et de lancer :

---

En modifiant la valeur du CheckBox, on simule le click. Ce phénomène existe avec d'autres contrôles et d'autres propriétés
Voici le test

Code:

---

1 2 3 4 5 6

Private Sub CheckBox1_Click() Static compteur As Integer Debug.Print compteur compteur = compteur + 1: TextBox1.Value = compteur CheckBox1.Value = Not CheckBox1.Value End Sub

---

Bonjour,
Il faut interdire la reproduction de l'événement!

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CheckBox1_Click() Static Sortir as booleen If sortir =True then exit sub Sortir =true Static compteur As Integer Debug.Print compteur compteur = compteur + 1: TextBox1.Value = compteur CheckBox1.Value = Not CheckBox1.Value Sortir =false End Sub

---

Bien sur si je veux inhiber tous les évènements du UsF je ferais un dim en entête de code!

Bonjour,
Je crois surtout qu'il faut changer de méthode. Quelle usine à gaz pour juste placer une valeur VRAI et FAUX dans une cellule.
Soit écrire la valeur directement après le changement

Code:

---

1 2 3

Private Sub CheckBox1_Change() Worksheets("Feuil1").Range("B1").Value = CheckBox1.Value End Sub

---

soit utiliser la propriété ControlSource

Code:

---

1 2 3

Private Sub UserForm_Initialize() CheckBox1.ControlSource = "Feuil1!B1" End Sub

---

mais il est vrai que je n'ai pas tout lu de cette discussion qui s'éternise et à laquelle je participe en intervenant à nouveau et donc je ne connais pas la raison de l'utilisation de tout ces événements.

A Philippe Tulliez :
Je sais que l'on va là sortir lentement, mais très surement du cadre de la discussion originelle, mais ce ne sera peut-être pas "perdu" pour toi, ni pour d'autres.
Dans ton test, tu fais appel à Debug.print. Ce seul appel donne à la checkbox le temps de contrôle dont elle a besoin pour s'imposer. Tu obtiendrais la même chose (à l'infini) avec une msgbox. Hé oui !
Je sais que jouer sur l'existence de latences est à la fois scabreux et diabolique. J'ai pourtant plus d'une fois joué avec. Il m'est même arrivé de m'attirer ainsi l'inimitié irrémédiable d'une société prestataire de services qui voulait vendre (très cher, en plus) à un ministère (pas n'importe lequel) un module de protection que j'ai "cassé" devant le représentant de cette société en quelques secondes du seul fait de la présence d'une telle latence, présence dont je soupçonnais l'existence. La société dont il s'agit a été définitivement exclue de tout marché en raison de la réponse surprenante qu'elle a faite et qui a été "vous n'êtes pas supposé faire ce que vous avez fait" !!!!! Ah bon ? !!!!
J'ignore la raison réelle pour laquelle le contrôle CheckBox passe par cette "latence" au Clic. Il n'est pas impossible (mais ce n'est qu'une supposition parmi d'autres) qu'il ait bien fallu distinguer le clic du double-clic (deux clics très rapprochés).
Si les vers ne me mangent pas avant, je t'exposerais peut-être un jour les raisons pour lesquelles tout système de protection est inefficace si la priorité n'est pas donnée (chronologiquement) à l'exécution de ses propres procédures.
Amitiés

Bonjour à tous,

Pour revenir à la question originelle, à savoir: "Pourquoi Application.EnableEvents ne marche pas", j'ai appris, grâce à vos interventions respectives et principalement unparia, que cette instruction est inefficace pour les Events d'un UserForm.

Pour contourner le problème de manière élégante, il y a le code proposé par cpearson:
http://www.cpearson.com/excel/SuppressChangeInForms.htm

Re-moi,
C'est donc ce value = not value dans le clic qui vous gêne éthiquement parlant ?
Hé bien ! On va s'en passer.
Raisonnement : en cliquant sur la checkbox, on modifie son état (celui traité au Mouseup
Qu'à cela ne tienne ! On va définir, au MouseUp, l'inverse du résultat à obtenir et le clic le transformera donc en son inverse à nouveau.
Et donc : plus rien du tout dans l'évènement click de la checkbox et pour seul code, celui-ci (commenté)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CheckBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox1.Text = Worksheets("Feuil1").Range("A1") 'on va faire ici le contraire du résultat final à obtenir 'puisque l'inverse résultera du clic ' en mettant ici False, le clic le transformera en True ' (qui se répercutera donc en cellule B1 liée) Worksheets("Feuil1").Range("B1") = False ' (puisque l'on veut true et que ce False sera transformé en son inverse à l'issue du clic) CheckBox1.ControlSource = "Feuil1!B1" End Sub

---

En 3 lignes de code (2, en fait, en ce qui concerne la seule checkbox)
Amusant également, non ?