Probléme de lancement non désiré de macro événementielle à l'initialisation du UserForm

Bonjour Forum,

bon je bloque avec mon UserForm.
Au moment de l'initialisation, je boucle sur tous les controles (CheckBox) contenus dans une frame pour les cocher:

Code:

---

1 2 3 4 5 6

Private Sub UserForm_Initialize() Dim ChkBx As Control For Each ChkBx In FrameSelection.Controls ChkBx.Value = True Next End Sub

---

Le problème est que ce passage lance la procédure événementielle de chacune des CheckBox les unes après les autres. Ca fait des boucles interminables, les procédures événementielles des CheckBox sont toutes différentes les unes des autres et sont en interaction suivant leur valeur.

Bref, ma question est:
Comment est ce que je peux initialiser mon UserForm et donc définir les valeur des 20 CheckBox sans qu'à chaque fois la procédure événementielle de la CheckBox soit lancée?

Merci d'avance infiniment pour votre aide.

Bonjour,

As-tu essayé :

Code:

---

1 2 3 4 5 6

Sub UserForm_Initialize() Application.EnableEvents= false ' ton code Application.EnableEvents= true end sub

---

bonjour

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() Dim ChkBx As Control application.enableevents=false For Each ChkBx In FrameSelection.Controls ChkBx.Value = True Next application.enableevents=true End Sub

---

Merci beaucoup pour votre aide!
Mais ca ne change strictement rien. Je l'ai mis partout où une CheckBox est modifiée par macro mais rien, nada.
Je suis sûre qu'il existe une solution pour ca, mais je ne sais pas laquelle c'est...
:cry::cry::cry::cry:

bonjour melouille56 les amis alex & mercatog je vais peut être dire une bêtise mais tu veus mettre a l'initialisation tes CheckBoxs a true pourquoi dans proprietee de chaque CheckBox tu definis pas a true par defaut tu as plus de pb...non???

Merci Laetitia!!
Ca m'a beaucoup aidé, mais malheureusement pas résolu totalement mon problème. Effectivement, grâce à ce que tu as dit, les macros evenementielles de chaque CheckBox ne se lancent plus à l'initialisation.
Par contre, elles se lancent plus tard.

Comment faire pour que les macros ne se lancent qu'apres une action de l'utilisateur mais pas apres une action lancée par une autre macro? Est ce que je dois appeler ma macro événementielle _Click? _Change? _AfterUpdate?

Pour essayer de réumer, j'ai une CheckBox et 5 sous CheckBox. Au clic ou déclic de la CheckBox mère, ca coche ou décoche les 5 sous-CheckBox. Mais lorsque je ne décoche qu'une sous-CheckBox, je veux que la CheckBox mère se décoche (eh oui, il n'y a plus 5 mais 4 sous CheckBox de cochées). Et quand je lui demande de décocher la CheckBox mère, il comprend ca comme un clic de l'utilisateur, lance la macro événementielle de la mère, qui décoche donc à l'action toutes les sous-CheckBox. Et je ne veux pas.

Je ne sais pas si j'ai été trés claire mais j'ai en tous cas essayé.

Merci pour votre aide. Je suis dans une impasse.

re,question la CheckBox "mere" est dans le meme frame que les 5 "sous" CheckBoxs ??? je dis cela pour peut etre pour utiliser la proprietee mousse move du frame.ou peut etre utiliser un module de classe.L'ideal serait zipper un exemple surtout la presentation de ton user avec quelques lignes de code je regarderais ce soir si pas de réponse d'ici la.

Bonjour,

plutôt que de se mettre en boule, utiliser une Boolean ? genre :

Code:

---

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

Option Explicit Dim drap As Boolean Private Sub CheckBox1_Change() If drap = False Then Beep End If drap = False End Sub   Private Sub CheckBox2_Change() drap = True: CheckBox1.Value = False End Sub

---

si la 1 est changée par code via la 2 => pas Bip

si on change la 1 à la souris => Bip !

cordialement,

Didier

Ouah, Didier, j'ai pas testé, mais ca m'a l'air super.:)
Merci d'avance.
Je te reviens dès que j'ai testé

Super, génial, ca marche parfaitement!!!
Merci beaucoup à tous pour votre aide précieuse.
A très bientôt certainement
Mélanie