Bonjour à tous,
J'ai bien fouillé un peu partout sur le web et je n'ai pas trouvé réponse à mon problème. J'espère que vous pourrez m'aider.
Je travaille sur environnement Windows XP Service pack 3 (Vous avez dit obsolète? ), sur Excel Microsoft Office Standard 2010.
La Feuil1 de mon fichier "VBAESSAI.xlsm" contient un tableau avec :
Des cellules "réponses possibles" sur les ligne 1-4
Des cellules "questions" sur la ligne 5
Des cellules "réponses données" sur les lignes 6 - (...)
Au clic sur un bouton, "Génerer filtres", le but est de créer :
- > Des "Questions" (Classe QuestionHandler) qui contiennent un groupe de "Réponses" possibles (Classe RéponseEventHandler)
- > Un "OptionButton" Pour chaque "Réponse" possible (Au sein de ReponseEventHandler, Private WithEvents OBReponse As MSForms.OptionButton)
- > Un Event "OBReponse_Change()" qui :
>>> met à jour le choix de filtre pour la "Question", puis
>>> relance un filtre sur l'ensemble des cellules "Réponses données"
J'ai fait appel aux références : "Microsoft Forms 2.0 Object Library" et "Microsoft Scripting Runtime"
Mes paramètres de macros sont callés sur "Désactiver toutes les macros avec notification", et je ne peux pas modifier plus ce paramètrage
En mode développeur,
=> Lorsque j'execute ma macro "InitOptionButton", mon Système de filtre est construit
=> Lorsque je clique sur mes OptionButton pour faire un choix de filtrage : Mon filtrage se fait
À l'ouverture de mon fichier Excel,
=> Lorsque je clique sur "Génerer filtres" (Qui appelle "InitOptionButton"), mes OptionButtons sont créés mais
=> Lorsque je clique sur mes OptionButton pour faire un choix de filtrage : Mon filtrage ne se fait pas (Les évenements ne sont jamais parcourus)
Que dois-je faire pour que mes évenements s'activent à l'ouverture de mon fichier ?
(Je précise que je malgré l'option de paramétrage des macros, le message demandant l'activation des macros ne s'affiche pas, en revanche, je peux, comme vu au dessus, cliquer sur mes boutons, et je peux activer des macros via le mode développeur)
Merci d'avance pour vos retours (ouf)