Discussion :

[melouille56]

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 :

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

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.

[aalex_38]

Bonjour,

As-tu essayé :

Code :

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

1
2
3
4
5
6
 
Sub UserForm_Initialize()
Application.EnableEvents= false
' ton code
Application.EnableEvents= true
end sub

[mercatog]

bonjour

Code :

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

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

[melouille56]

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

[laetitia]

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

[melouille56]

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.

[laetitia]

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.