masquer la feuille active au déactivate VBA

[pascal21]

bonsoir le forum
je pensais le problème facile et pourtant ça fait une 1/2 heure que je piétine sur ce truc simple
j'aimerais que la feuille que je consulte se masque lors je change de feuille
ma feuille s'appelle "DIJON" mais changera de nom par la suite
donc je ne peux pas mettre

worksheets("DIJON").visible = false

j'ai essayé avec le numéro de la feuille Feuil3 mais ça fonctionne pas nom plus
il faut mettre quoi en fait
merci de votre aide

 

[Jacky67]

Bonjour,
Essaye ceci dans le ThisWorkbook

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

 

[pascal21]

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

 

[Victor21]

Bonjour Pascal.

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

 

[pascal21]

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

 

[Jacky67]

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

Re...

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.

 

[pascal21]

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