Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Feuilles cachées

Feuilles cachées

3 réponses
Avatar
Brat'ac
Bonjour,

Si dans le menu Format/feuille/masquer je masque une feuille c'est ok.
Mais j'aimerais pouvoir l'afficher sur l'action d'un bouton de commande à partir
d'une autre feuille et bien sur à la sortie la faire disparaître à nouveau

Je ne trouve pas vraiment comment faire
Merci de l'aide

GS

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain
par quelqu'un d'autre.
Pierre PERRET
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
anonymousA
Bonjour,

dans la proc du bouton de commande en imaginant que c'est la feuille
"Feuil1" qui est cachée

with sheets("Feuil1")
.visible=true
.activate
end with

Et dans le module de la feuille Feuil1

Private Sub Worksheet_Deactivate()

Me.Visible = xlSheetHidden

End Sub

Et dans le module Thisworkbook du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)

sheest("Feuil1").Visible = xlSheetHidden

End Sub

A+
Avatar
Brat'ac
Bonjour,

dans la proc du bouton de commande en imaginant que c'est la feuille
"Feuil1" qui est cachée

with sheets("Feuil1")
.visible=true
.activate
end with

Et dans le module de la feuille Feuil1

Private Sub Worksheet_Deactivate()

Me.Visible = xlSheetHidden

End Sub

Et dans le module Thisworkbook du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)

sheest("Feuil1").Visible = xlSheetHidden

End Sub

A+


OK merci j'essaie cela de suite.
GS

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain
par quelqu'un d'autre.
Pierre PERRET

Avatar
Brat'ac
anonymousA a pensé très fort :
Bonjour,

dans la proc du bouton de commande en imaginant que c'est la feuille
"Feuil1" qui est cachée

with sheets("Feuil1")
.visible=true
.activate
end with

Et dans le module de la feuille Feuil1

Private Sub Worksheet_Deactivate()

Me.Visible = xlSheetHidden

End Sub

Et dans le module Thisworkbook du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)

sheest("Feuil1").Visible = xlSheetHidden

End Sub

A+


Super, et Merci beaucoup, ça fonctionne impect.

GS

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain
par quelqu'un d'autre.
Pierre PERRET