Gestion d'événements pour une checkbox - Empêcher l'événement click à l'initialisation

Bonjour

Une application qui lance un userform dans lequel il y a des contrôles CheckBox.
Le lancement met à jour chaque champ de l'userform.
En arrivant sur la MAJ des checkBox, cela déclenche l'événement Click qui est lui même un traitement indépendant de l'initialisation :
- La MAJ met en place les informations
- Le click gère le changement
Cela entraîne à l'initialisation, un traitement de situations qui peuvent être différentes.
J'ai essayé "Application.EnableEvents = False"
Cela ne fonctionne pas.
Y aurait il une solution qui permette de désactiver l'événement click quand un checkbox est initialisé.
Merci de vos retours

Bonjour,
Regardes du coté de CheckBox.Desabled et CheckBox.Enabled.

Salut.

Perso, je travaillerais avec une variable de module et j'encadrerais le code du checkbox avec un test sur cette variable.

Code:

---

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

Option Explicit   Private mInit As Boolean   Private Sub CheckBox1_Click() If Not mInit Then … … ... End If End Sub   Private Sub UserForm_Initialize() mInit = True CheckBox1.Value = True mInit = False End Sub

---

Application.EnableEvents ne fonctionne pas car les évènements d'un userform ne sont pas des évènements de l'application (Excel, Word, …) ;)

Deux autres solutions, en fonction du contexte

Si ton checkbox doit toujours être coché à l'ouverture, tu pourrais passer sa propriété Value à True lors de la conception. Ainsi, plus de problèmes. (Je suppose que tu n'es pas dans ce cas…)



Si ton checkbox doit être coché ou non en fonction du contexte, à la place de ma solution précédente, tu pourrais externaliser l'initialisation et te passer de la variable de module.

Dans le code de ton userform

Code:

---

1 2 3 4 5 6 7

Private Sub CheckBox1_Click() If Me.Visible Then … … ... End If End Sub

---

Dans le code qui appelle le userform

Code:

---

1 2 3 4

Sub Test1() UserForm1.CheckBox1 = Hour(Now) < 12 UserForm1.Show End Sub

---

Code:

---

1 2 3

Private Sub CheckBox1_Click() CheckBox1.Locked = CheckBox1 End Sub

---

Citation:

---

Envoyé par dysorthographie

Code:

---

1 2 3

Private Sub CheckBox1_Click() CheckBox1.Locked = CheckBox1 End Sub

---

---

Hum… Et comment fais-tu pour cliquer dessus, après, si tu dois le décocher?

Citation:

---

Envoyé par dysorthographie

Bonjour,
Regardes du coté de CheckBox.Desabled et CheckBox.Enabled.

---

Disabled n'existe pas, et Enabled = False n'empêche pas l'évènement Click de survenir.

Bonjour Pierre.

Citation:

---

Envoyé par com-ace

Bonjour

Une application qui lance un userform dans lequel il y a des contrôles CheckBox.
Le lancement met à jour chaque champ de l'userform.
En arrivant sur la MAJ des checkBox, cela déclenche l'événement Click qui est lui même un traitement indépendant de l'initialisation :
- La MAJ met en place les informations
- Le click gère le changement
Cela entraîne à l'initialisation, un traitement de situations qui peuvent être différentes.
J'ai essayé "Application.EnableEvents = False"
Cela ne fonctionne pas.
Y aurait il une solution qui permette de désactiver l'événement click quand un checkbox est initialisé.
Merci de vos retours

---

Code:

---

1 2 3 4 5 6 7

Private Sub CheckBox1_Click() CheckBox1.Locked = CheckBox1 End Sub     Private Sub CheckBox2_Click() CheckBox2.Enabled = Not CheckBox2 End Sub

---

Pièce jointe 411034

Robert,

Citation:

---

Envoyé par dysorthographie

Bonjour Pierre.

Code:

---

1 2 3 4 5 6 7

Private Sub CheckBox1_Click() CheckBox1.Locked = CheckBox1 End Sub     Private Sub CheckBox2_Click() CheckBox2.Enabled = Not CheckBox2 End Sub

---

Pièce jointe 411030

---

Il faut comprendre le contexte de la demande.

On parle de désactiver l'évènement click du checkbox au moment de l'initialisation parce qu'à l'initialisation, en fonction du contexte, le checkbox sera coché ou pas (comme je l'ai illustré dans les deux solutions exposées), mais j'imagine bien qu'après, il faut pouvoir le décocher s'il l'a été lors de l'initialisation, puisqu'il y a du code qui est déclenché sur le clic. Parce que sans code sur le clic, toute cette gymnastique ne sert à rien… :koi:


L'idée, qui me semble clairement exprimée par le demandeur, est qu'un checkbox est coché ou pas à l'initialisation du userform et que cela déclenche le code du clic (prévu pour un clic ultérieur, donc) qui doit être désactivé à l'initialisation du userform… Je ne vois pas comment comprendre autrement la demande initiale, et je ne vois pas comment y répondre autrement qu'avec les deux solutions que j'ai fournies.

tu as sens doute raisons mais ça ne m'avais pas semblé évident.

Citation:

---

Envoyé par dysorthographie

tu as sens doute raisons mais ça ne m'avais pas semblé évident.

---

J'imagine, au vu de ce que tu as proposé ;)

Bonjour

j'ai déja rencontré ce problème, la seule solution que j'avais trouvé était de passer, avant le lancement du formulaire, la propriété locked des textbox à true pour empêcher l'événement click et de les repasser à false à la fin de l'initialisation du formulaire après avoir fait un setfocus sur le contrôle par défaut.

Bien cordialement, @+

Merci à tous les deux
Je vais essayer vos solutions et reviens vers vous
Bonne soirée

bonsoir
on a eu un exemple similaire d'un demandeur qui changait la valeur des checkbox par code ce qui declanchait leur evenement click
j'avais resolu le probleme avec un truc tout bete

englober le code de l'evenement dans un if

Code:

---

1 2 3 4 5 6

Private Sub CheckBox1_Click() If Me.ActiveControl.Name = "CheckBox1" Then '... MsgBox "coucou" End If End Sub

---

je sais ca parait con mais si la valeur du checkbox est changé par le code dans un module ou dans l'evenement d'un autre control le msgbox ne s'affichera pas car activecontrol ne sera pas le checkbox
je sais c'est rigolo;)

@ Patrick,


C'est rigolo, mais cela ne fonctionne pas lors de l'initialisation (situation dans laquelle se trouve le demandeur), que ce soit par l'évènement Initialize ou par une proc extérieure (les deux cas que j'ai illustrés, le second ayant ma préférence), car au moment de l'initialisation, le userform n'est pas encore visible et donc, il n'y a pas de contrôle actif. Ta solution provoque une erreur lorsqu'elle est utilisée à l'initialisation :( (j'imagine que tu n'avais pas testé...). Ton astuce, qui est sympa, ne fonctionne que sur un formulaire visible.


@Yeahou: Le Locked à True n'inhibe pas l'évènement Click :(

Merci à tous
La 1ere solution de Pierre répond à mes attentes à la différence de la déclaration de la variable que j'ai rendu Public
Merci aux autres pour leurs idées que je vais conserver

re
Bonjour Pierre
non je n'avais pas testé avec initialise
je fait les manips de ce genre dans le activate en general afin que tout soit accessible

Ben oui...

Nous en sommes à 15 messages dans cette discussion avec des solutions non testées et non fonctionnelles (=> perte de temps, manque de sérieux), là où trois messages suffisaient amplement.