Pb avec module de classe

[mécano41]

Bonjour à tous,

J'ai déjà utilisé des modules de classe pour des contrôles dans des USF et cela fonctionnait correctement. J'essaie d'utiliser quelque chose de similaire mais adapté à des boutons sur une feuille (donc OLEObject).

Cela bloque à la définition des objets (Set Bouton(NbBoutons).GroupeBoutons = Btn) et je ne vois pas du tout pourquoi...

Si quelqu'un a une idée...merci d'avance

Cordialement

 

[Guest]

Re : Pb avec module de classe

Bonjour Mécano,

Déclarer la variable objet de la classe comme:

Public WithEvents GroupeBoutons As MSForms.CommandButton

Ensuite:

Set Bouton(NbBoutons).GroupeBoutons = Btn.Object

A+

 

[mécano41]

Re : Pb avec module de classe

Bonjour Hasco,

Merci pour cette réponse ultra rapide!

Cela fonctionne effectivement mais j'aime bien comprendre ...

- pourquoi doit-on déclarer comme une commande MSForms alors que plus loin on est dans une collection OLEObjects et que c'est accepté?

- pourquoi Btn.Object alors que Btn est déjà un objet puisque pris dans une collection OLEObjects?

Si tu as quelques minutes pour m'expliquer ... merci d'avance.

Cordialement

 

[Guest]

Re : Pb avec module de classe

Bonjour,

Parce que OleObject est une classe objet conteneur d'objets de types divers et variés.
Place un point d'arrêt sur la ligne

Set Bouton(NbBoutons).GroupeBoutons = Btn.Object

Affichage/variables locales -> btn
tu verras que btn n'a pas toutes les propriétés d'un commandButton, il a un ProgId "Command.Button.1" qui indique quel type d'objet il contient.

Si tu veux retrouver les propriétés du bouton il faut développer la branche 'Object'

A+

 

[mécano41]

Re : Pb avec module de classe

Merci beaucoup pour toutes ces explications.

Bonne journée.