masquer la feuille active au déactivate VBA

Jacky67

XLDnaute Barbatruc

• 14 Janvier 2017

• #2

Bonjour,
Essaye ceci dans le ThisWorkbook

Code:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Visible = False
End Sub

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 14 Janvier 2017

• #3

bonsoir Jacky
merci pour ta réponse le problème est que ça va s'appliquer à toutes les feuilles
et comme je ne l'avais pas précisé c'est pour certaines feuilles en fait
je ne souhaite pas cacher le feuilles de synthèse de mon classeur

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 14 Janvier 2017

• #4

Bonjour Pascal.

Teste si la feuille active n'est pas "synthèse" avant de masquer.

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 14 Janvier 2017

• #5

bonsoir victor21
pour faire simple il n'y a que les feuilles liste du personnel et REPARTITION qui peuvent rester affichées
les autres je les masque à la fermeture du classeur
d'ailleurs même problême comment fermer les feuilles sans les nommer par le nom d'onglet

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 14 Janvier 2017

• #6

pascal21 à dit:

bonsoir Jacky
merci pour ta réponse le problème est que ça va s'appliquer à toutes les feuilles
et comme je ne l'avais pas précisé c'est pour certaines feuilles en fait
je ne souhaite pas cacher le feuilles de synthèse de mon classeur

Cliquez pour agrandir...

Re...

Code:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
' ici les 'codeName' des feuilles à ne pas prendre en compte
If Sh.CodeName <> "Feuil1" And Sh.CodeName <> "Feuil2" Then
Sh.Visible = False
End If
End Sub

*Le codeName permet de renommer une feuille ou de la déplacer sans avoir à modifier le code vba.

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 14 Janvier 2017

• #7

ok merci Jacky c'est parfait
le codename je ne connaissais pas mais c'est bien pratique

 

Vote positif 0 Vote négatif