Pb Userform et commande

[guigui4901]

Bonjour,

Question qui doit être toute bête...
j'ai crée un userform avec des boutons de commande.
le code des boutons est ci dessous.
Pourtant le code renvoi une erreur "impossible de définir la propriété visible de la classe worksheets.
pourtant, dans mon fichier, l'utilisation de ce meme code sur un bouton de controle fonctionne parfaitement...
Pouvez vous m'aider???

Code:

Private Sub CommandButton3_Click()
Me.Hide
Worksheets("feuil1").Visible = False
Worksheets("amenagement").Visible = True
Worksheets("amenagement").Activate

End Sub


Merci a tous

Guillaume

 

[Pierrot93]

Re : Pb Userform et commande

Bonjour Guillaume,
ton code devrait fobnctionner, à condition que les feuilles concernées soient bien sur le classeur actif et que tu ais au moins 3 feuilles dans le classeur.
Si ce n'est pas le cas essaye en inversant le code comme suit :

Me.Hide
Worksheets("amenagement").Visible = True
Worksheets("feuil1").Visible = False
Worksheets("amenagement").Activate

bonne fin d'après midi
@+