Bouton pour afficher et aller sur une feuille masquée

Bonjour à toutes et tous,

Je souhaite créer un bouton qui me permet d'afficher et d'aller directement sur une feuille masquée.

J'ai tenté quelque chose sans succès via l'enregistrement d'une macro :

• développeur
• nouveau bouton
• enregistrer
• enregistrer la macro dans ce classeur > ok
• dans les onglets, afficher la feuille en question
• sur la feuille en question, clic sur A1
• arrêter la macro

Le bouton m'affiche bien la feuille cachée, mais ne parvient pas à aller sur celle-ci...

Si vous avez des pistes, je suis preneur !

Merci

Bonjour

ça les feuilles masquées en cette période c'est plutôt fréquent

la feuille sur laquelle tu veux aller n'est elle pas en plus protégée par hasard

A plus sur le forum

Bonsoir le forum

Voici le code généré

Sub Macro1()

Sheets("Feuil2").Visible = True

Sheets("Feuil2").Select

Range("B10").Select

End Sub

Re

ce code fonctionne parfaitement bien

dé protection de feuille 2

positionnement en B10

mise d'une valeur en B10

je n'arrive pas a reproduire ton problème

Sub Macro1()

Sheets("Feuil2").Visible = True

Sheets("Feuil2").Select

Range("B10").Select

Range("B10") = "toto"

End Sub

A plus sur le forum

Bonjour,

J'ai tenté une nouvelle fois cette manipulation mais cela ne fonctionne toujours pas.

Mon bouton situé sur la feuille A démasque bien la feuille B dans les onglets. Je souhaite qu'en plus de cette action, la feuille B apparaisse à l'écran (principe d'un lien hypertexte).

Attention, l'ensemble de mes feuilles auront une protection.

Merci pour votre aide.

Re Kevin

je n'ai peut être pas compris ta demande

alors en Pj un exemple qui pour moi exécute ce que tu demande sans aucun problème

A plus sur le forum

Rebonjour,

Merci pour cette réponse.

Finalement, en creusant deux minutes, j'ai trouvé l'erreur :

Sub fiche_technique()
'
' fiche_technique Macro
'
    Sheets("LOCATION VIDE").Select
    Sheets("FICHE TECHNIQUE VIDE").Visible = True
End Sub

Alors qu'il faudrait :

Sub fiche_technique()
'
' fiche_technique Macro
'
    Sheets("FICHE TECHNIQUE VIDE").Select
    Sheets("FICHE TECHNIQUE VIDE").Visible = True
End Sub

ça semble bon...

Bonne journée