Reference Command Button

Bonjour a tous,

J'ai une petite question toute con.
J'ai cree un userform que je remplis et lorsque je clique sur OK, dans ma procedure, je dois rendre visible un bouton qui se trouve dans une feuille de mon fichier excel.

Le probleme, c'est que je ne sais pas comment y faire reference...

Voici mon code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'Button OK   Private Sub CommandButton2_Click()   Dim Para As worksheets, MS As Worksheet   Set Para = Worksheets("Parameters") Set MS = Worksheets("Main Sheet")   If TextBox1 = Para.Range("E5").Value Then   MS.CommandButton5.Visible = True End If   Unload Administrator   End Sub

---

Bien entendu le code ne marche pas et me renvoie une erreur du type: type mismatch !

Merci d'avance,

Pubbins

Bonjour,

Essayez le code sans définir la feuille MS, c-a-d comme ceci:

Code:

---

Worksheets("Main Sheet").CommandButton5.Visible = True

---

Ce problème vient de la déclaration du bouton de commande.
Celui-ci est affecté, par défaut, à la feuille dans laquelle il a été créer.

Pour appeler le bouton de commande en conservant la variable de la feuille, il faut utilisé l'objet Shapes, soit :

Code:

---

MS.Shapes("CommandButton5").Visible = True

---

En esperant avoir répondu à votre question.

Cordialement