XL 2010 VBA - Remasquer les feuilles affichées automatiquement

[tchi456]

Bonjour,

J'ai un fichier qui comporte des feuilles masquées et je souhaiterais pouvoir remasquer automatiquement les feuilles que je viens d'afficher lorsque je vais sur une autre feuille.

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry

 

[Eric C]

Bonjour le forum
Bonjour tchi456

En supposant que ta feuille soit cachée (0 - XlSheetHidden), tu mets ce code sur la feuille que tu affiches :

Private Sub Worksheet_Deactivate()
If Sheets.Count > 1 Then Me.Visible = xlSheetHidden
End Sub

Bonne journée
@+ Eric c

 

[tchi456]

Bonjour Eric,

C'est exactement ce que je cherchais. Votre code fonctionne parfaitement bien.

Merci pour votre aide et bonne journée à vous.