Masquer une feuille excel en retournant au sommaire

[oly22]

BOnjour à tous

j'ai un fichier excel avec une 40 de feuilles que j'active via un sommaire

Des boutons existent sur la feuille sommaire qui affiche les feuilles au fur et à mesure des besoins

Je voudrais que lorsque l'utilisateur clique sur retour au sommaire, la feuille où se situe le bouton où il aura cliqué soit masquée en même temps que l'affichage du sommaire

Actuellement je mets une instruction du type sheets (toto).visible = false, mais je dois créer autant de bout de code que de bouton de retour au sommaire. Je suis certain qu'un code plus simple s'appliquant à la feuille active est possible, mais je n'arrive pas à le coder correctement

Merci d'avance pour votre aide

 

[JCGL]

Re : Masquer une feuille excel en retournant au sommaire

Bonjour à tous,

Peux-tu essayer avec un Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) placé dans le ThisWorkBook ?

A+ à tous

 

[Si...]

Re : Masquer une feuille excel en retournant au sommaire

salut

un exemple sans bouton et avec, dans ThisWorkbook, une évènementielle Double Clic
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal R As Range, Cancel As Boolean)
Si... tu tiens à tes boutons choisis plutôt l'évènement proposé par JCGL 🙂.

 

[job75]

Re : Masquer une feuille excel en retournant au sommaire

Bonjour oly22, Jean-Claude 🙂

Utilisez des boutons de type Formulaire dans les 40 feuilles.

Cette macro doit leur être affectée :

Sub Retour()
Dim F As Object
Set F = ActiveSheet
Sheets("Sommaire").Activate
F.Visible = False
End Sub

Elle est à placer dans un module standard.

Edit : salut SI...

A+

 

[Jack2]

Re : Masquer une feuille excel en retournant au sommaire

Bonsoir à tous,

oly22, tu peux peut-être compléter avec l’exemple de DoubleZero :

https://www.excel-downloads.com/threads/pb-acces-feuilles-masquees-par-macro.208754/

A+

 

[oly22]

Re : Masquer une feuille excel en retournant au sommaire [RESOLU]

Merci à tous pour votre aide, j'ai finalement retenue la solution proposée par job75 qui fonctionne parfaitement !

Merci encore pour votre aide