Discussion :

[pubbins]

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 :

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

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

[LouiMz]

Bonjour,

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

Code :

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

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 :

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

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

En esperant avoir répondu à votre question.

Cordialement