Afficher/Masquer 1 feuille en VBA

[Hervé_88]

Bonjour à tous,

Je cherche à masquer et à afficher une feuille via un code VBA

La feuille est déja masquée au niveau du VBE en "xlSheetVeryHidden"

Ci-joint fichier.

D'avance merci à tous

 

[Épaf]

Re : Afficher/Masquer 1 feuille en VBA

Tu ne dis pas si tu as un bouton pour l'afficher. Ce code ne fonctionne pas ?

Worksheets("Feuil2").Visible = True

 

[Hervé_88]

Re : Afficher/Masquer 1 feuille en VBA

Bonjour épaf,

Je viens de créer un bouton dans le fichier est cela ne fonction pas, attention le masque de la feuille est faite au niveau du VBE

Ci-joint fichier modifier

 

[jeanpierre]

Re : Afficher/Masquer 1 feuille en VBA

Bonjour Hervé, Epaf, re le forum,

Ton code fonctionne si tu remplaces Feuil2 par DataBase.

Bon courage.

Jean-Pierre

 

[Hervé_88]

Re : Afficher/Masquer 1 feuille en VBA

Bonjour Jeanpierre,

Merci cela fonctionne j'affiche bien la feuille "DataBase", quand je veux la maquer cela fonctionne aussi, mais ont peut l'afficher et la masquer dans le menu " Format ->Feuille ->...

Moi au départ je l'ai masqué au niveau du VBE en "xlSheetVeryHidden" et j'aimerai que la feuille garde la même propriété avant après affichage et masquage.

D'avance merci,

Ci-joint fichier

 

[jeanpierre]

Re : Afficher/Masquer 1 feuille en VBA

Te,

Avec : Worksheets("DataBase").Visible = xlSheetVeryHidden

que tu attribues à un second bouton.

Voila.

 

[Hervé_88]

Re : Afficher/Masquer 1 feuille en VBA

Jeanpierre,

Merci🙂🙂

 

[nat54]

Bonjour,
Un up de 14 ans, le fichier correspond complètement à ce que je souhaite faire.
Mais je n'arrive pas à voir le code sous les boutons et je ne sais plus comment affecter un code à un bouton.
Qq pour m'aider ?
Merci,

 

[nat54]

C'est bon !
J'ai trouvé
Désolée du dérangement

Sub Masquer()
'
' Masquer les onglets hormis celui d'interrogation par UG
'

Sheets("procédure").Visible = False
Sheets("base").Visible = False
Sheets("jetables_pdt-entretien").Visible = False
Sheets("interro_compte").Visible = False

'
End Sub


Sub Afficher()
'
' Afficher tous les onglets
'

Sheets("procédure").Visible = True
Sheets("base").Visible = True
Sheets("jetables_pdt-entretien").Visible = True
Sheets("interro_compte").Visible = True

'
End Sub

 

[Eric C]

Bonjour le forum
Bonjour le fil, bonjour nat54

Tu vas sur l'onglet "Développeur" puis sur "mode création" et ensuite click droit sur le bouton désiré.
Bonne journée à toutes & à tous.
@+ Eric

Oupssss : pas rafraîchi assez vite.