Discussion :

[Nono02P]

Bonjour,

Désolé si cette question a déjà été posée, mais je ne sais pas trop comment décrire de façon textuelle ma demande donc je ne trouve pas de réponse correspondant à mon besoin.

En fait je cherche pour un CodeModule donné (entre autre celui d'un userform) à accéder aux deux ComboBox qui permettent de faire les déclarations en fonction des évènements.
Le but est de dynamiquement ajouter des éléments à ces fameux ComboBox.

En cherchant en ligne, j'ai vu que je pouvais déjà accéder (je n'ai pas tenté de les modifier) aux boutons File, Edit, View, Insert, etc mais pas moyen de trouver ces deux combobox !


Merci d'avoir pris le temps de me lire, et merci à ceux qui tenteront de m'apporter leur aide

[Transitoire]

Salut, Vos copies d'écran ne montre pas de ComboBox. êtes vous sur d'être sur le bon UserForm.
Pouvez vous nous mettre une copie du UF ouvert.
Mettez vous sur le formulaire du UF et Double cliquez sur le Combo. aussitôt va s'ouvrir la feuille de code correspondante avec une procédure vide:

Code :

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

1
2
3
Private Sub ComboBox1_Click()
 
End Sub

Cordialement

[Nono02P]

Bonjour,

Merci d'avoir pris le temps de répondre.

Mes copies d'écran encadrent en rouge les ComboBox que je veux modifier, ce sont des éléments système (des listes déroulante de l'interface de développement).

En fait, je gère des évènements avec un module de classe.
Ces évènements vérifient l’existence de mes procédures dans le CodeModule de l'userform et si ils existent, ils y font appels.
Et je voulais modifier les listes déroulantes système afin d'intégrer mes propres évènements qui sont créé par du code et qui sont défini à partir des éléments qui composent mon userform.

Je ne sais pas si c'est plus clair... Bref, je cherche à atteindre des listes déroulantes de l'interface de développement !

Par défaut, ces listes déroulantes affichent (General) et (Declarations)

[Transitoire]

Re
Pardonnez moi, vous me parlez d'un Combobox, mais ce que vous avez entouré de rouge, ce sont des CheckBoxs ???

Cordialement

[Theze]

Bonjour,

Nono02P parle bien de deux ComboBox et il a bien entouré de rouge les deux ComboBox situé juste au dessus de la zone d'édition !

Je ne crois pas que tu puisses avoir accès à leurs listes car elles sont alimentées en fonction des procédures et fonctions qui sont créées dans la zone d'édition mais je peux me tromper !

[Nono02P]

Oui Theze, tu as compris !


En tout cas j'ai vu qu'il était possible de changer les CommandBars en haut (File, Edit, View, etc)

A l'exécution de Sub test() :


A l'exécution de Sub test2() :


J'ai un espoir que ça soit possible d'atteindre les ComboBox, donc je continue à chercher !

[Pierre Fauconnier]

Salut.

Module standard
Un module standard affiche toujours (Général) dans le combo de gauche et dans celui de droite, (Déclarations) ainsi que les procédures et fonctions présentes dans le module standard.


Module de classe
Pour un module de classe (module de classeur, de feuille, de userform, de classe perso), Le combo de gauche affiche (Général) puis les objets du module qui possèdent des évènements gérés (ou gérables, grâce à WithEvents) par le code. La liste de droite affichera une liste dépendant de la sélection dans la liste de gauche. Lorsque je parles des objets du module, c'est l'objet lui-même (classeur, feuille, userform, classe), les objets déclarés dans le module mais aussi les objets placés sur l'objet du module (les contrôles placés dans un userform ainsi que les contrôles ActiveX placés sur une feuille Excel, notamment).

Si dans la liste de gauche, tu choisis (Général), tu auras dans la liste de droite (Déclarations) et les procédures, fonctions et propriétés du module (PAS des objets déclarés dans ce module). Si à gauche, tu choisis un objet, tu auras à droite les évènements gérables de cet objet. Tu ne pourras donc voir dans la liste de droite que les noms des macros évènementielles liées à l'objet choisi à gauche, et pas les procédures, fonctions ou propriétés de cet objet, auxquelles tu accèderas par la notation pointée habituelle.

Si tu déclares un objet de classe perso dans un autre module de classe, tu pourras le voir apparaître dans la liste de gauche à condition qu'il expose au moins un évènement ET que tu l'aies déclaré avec WithEvents. En le sélectionnant dans la liste de gauche, tu pourras alors voir dans celle de droite les évènements de cet objet que tu peux gérer. Attention, tu ne peux pas déclarer un objet avec WithEvents dans un module standard. Si, dans un module de classe, tu déclares un objet avec WithEvents alors qu'il ne dispose pas d'évènement,tu n'auras pas d'erreur de syntaxe, mais bien une erreur de compilation (et donc à l'exécution).

J'en parle au chapitre IV-E de mon tuto sur les classes personnalisées en VBA.

[Nono02P]

Bonjour,

[Edit1] Ne perdez pas de temps à lire ce qui est barré, j'avais mal compris votre réponse ! C'est exactement ce que je cherche à faire ! Un grand merci à vous

Oui cette histoire d'événements dans les modules de classes sont assimilés, d'ailleurs c'est comme ça que j'ai rempli quasiment toutes les lignes de clsEvent.

Cependant mon but était d'avoir un "groupe de module de classe" standard pour tous les userforms et pour qu'il soit standard, je me suis dis que l'idéal serait qu'il fasse appel à une procédure stockée dans l'userform lui même... De cette manière mon code est standard côté module de classe (du coup je le garde dans un fichier add-in) et pourtant le traitement à faire peux être complètement différent entre deux userforms.

Donc en quelque sorte je voulais pouvoir alimenter moi même les deux listes qui sont habituellement alimentées par le logiciel en fonction de ce qui compose l'userform.
Je trouvais ça plus user-friendly que ce soit intégré à l'interface, mais bon c'est peut-être un peu du luxe parce qu'au pire je peux faire un custom menu avec les CommandBar.


Par contre en parlant de custom menu, j'en ai profité pour essayer de jouer avec et j'ai vu à un endroit que c'était abordé sur le site. Mais quand j'affecte à un bouton.OnAction une procédure, celui-ci n’exécute pas la procédure.
Dois je gérer ça dans un module de classe et créer des événements pour les CommandBar ou l'interface est sensée le gérer seule?

Merci d'avoir pris le temps de lire mon pavé



[Edit 2] : Votre tutoriel est superbe !
J'ai cru comprendre que les parties 2 et 3 ne sont pas encore disponibles... Du coup, comment gérer efficacement mes évènements de la clsEvent au travers la clsEvents qui est en fait une collection (avec une relation parent-enfant)?

Je suis sur de pouvoir faire en sorte que ça fonctionne en déclarant mes évènements de clsEvent dans clsEvents puis de créer des évènements dans clsEvents pour être utilisés dans mon userform... Mais j'ai le sentiment qu'il existe une solution plus puissante ! Avez vous un lien vers quelque chose qui en parle?

Encore merci !

[Pierre Fauconnier]

Il faudrait que tu sois plus explicite sur ton histoire de custom.menu...

(Mais dans une autre discussion stp pour ne pas mélanger les sujets de discussion... )

[Nono02P]

Oui vous avez raison, je vais d'abord me documenter et chercher un peu par moi même d'abord, et j'ouvrirais une discussion si c'est nécessaire !

[Edit 2] : Votre tutoriel est superbe !
J'ai cru comprendre que les parties 2 et 3 ne sont pas encore disponibles... Du coup, comment gérer efficacement mes évènements de la clsEvent au travers la clsEvents qui est en fait une collection (avec une relation parent-enfant)?

Je suis sur de pouvoir faire en sorte que ça fonctionne en déclarant mes évènements de clsEvent dans clsEvents puis de créer des évènements dans clsEvents pour être utilisés dans mon userform... Mais j'ai le sentiment qu'il existe une solution plus puissante ! Avez vous un lien vers quelque chose qui en parle?

Encore merci !

Cependant concernant le même sujet, avez vous des infos sur comment procéder pour gérer les évènement d'un module clsEvent à partir du module clsEvents (qui est une collection de clsEvent)?

Je ne sais pas si ma question est bien claire...


[Edit]: Hummm pas si simple, je suis obligé de créer une Sub dans clsEvents (qui est ma collection d'instances de clsEvent) qui va faire un RaiseEvent. Puis dans clsEvent, j'appelle la sub du clsEvents...
Mais je ne trouve pas ça super propre :/
Je vais continuer de chercher une autre solution.

[Edit2]: Pour ceux qui repassent par ici, j'ai trouvé la réponse à ma question ici :
https://tissotemmanuel.developpez.co...lasse/#LIV-D-6


Merci à tous d'avoir pris de votre temps pour m'aider !