Discussion :

[DarkVader]

Bonjour,
Quelqu'un connait-il l'équivalent VBA de

Code :

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

vbproject.AddToolboxProgID Guid

afin d'ajouter dynamiquement des composants dans la boite à outils ?

[StormH]

Bonjour,

J'ai peut-être mal compris ta question, mais pour ajouter dynamiquement des composants à un userform j'utilise le code suivant :

Code :

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

1
2
Dim combo As Object
Set combo = UserForm.Controls.Add("Forms.comboBox.1")

Du coup cela rendrait le fait d'ajouter des composants à la boîte à outil inutile puisque tu les ajouterais directement à ton userform, ou alors je me trompe complétement ?

Dans l'espoir d'avoir été utile,

Stormh

[DarkVader]

Merci pour la réponse mais ça, je sais faire ; mon problème c'est de pouvoir ajouter dynamiquement
un control dans la boite à outils des composants (celle qui est accessible quand un userform est sélectionné)
car la collection References ne gère pas l'ajout dans les composants de la boite à outils.

[clementmarcotte]

Bonjour,

J'ai cherché un peu, mais j'ai l'impression que ce n'est pas supporté en VBA.

Le plus près que j'ai pu trouver, c'est la possibilité de l'ajouter aux références du projet.

Pour ton contrôle, tu peux ajouter sa référence en partant de son GUID.

Un exemple de l'aide de VBA:

AddFromGUID, méthode, exemple
L'exemple suivant utilise la méthode AddFromGUID pour ajouter une référence au projet en cours. La référence est identifiée à l'aide de la valeur d'identification globalement unique de l'objet Reference.

Application.VBE.ActiveVBProject.References.AddFromGuid("{000204EF-0000-0000-C000-000000000046}", 5, 0)

Pour faire cela en VBA du moins, tu dois ajouter préalablement la référence à Microsoft Visual Basic For Applications Extensibility 5.3
Et je ne serais pas surpris que tu doives cocher la case pour faire confiance au projet Visual Basic. Pour Excel 2010 c'est à quelque part dans le centre de gestion de la confidentialité.

[DarkVader]

Bonsoir,
C'est déjà la solution de dépannage que j'utilise à défaut de mieux
mais ce n'est pas ce que je recherche.

[DarkVader]

Personne !
Je ne suis pas au bon endroit ?