Discussion :

[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

[yeahou]

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, @+

[Pierre Fauconnier]

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.

[Invité]

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

[Pierre Fauconnier]

Salut.

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

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

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

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 :

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

1
2
3
4
Sub Test1()
  UserForm1.CheckBox1 = Hour(Now) < 12
  UserForm1.Show
End Sub

[Invité]

Code :

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

1
2
3
Private Sub CheckBox1_Click()
 CheckBox1.Locked = CheckBox1
End Sub

[Pierre Fauconnier]

Code :

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

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?

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.

[Invité]

Bonjour Pierre.

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 :

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

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

[Pierre Fauconnier]

Robert,

Bonjour Pierre.

Code :

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

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…


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.

[Invité]

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

[Pierre Fauconnier]

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

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

[com-ace]

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

[patricktoulon]

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 :

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

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

[Pierre Fauconnier]

@ 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

[com-ace]

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

[patricktoulon]

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