T tchi456 XLDnaute Occasionnel 28 Septembre 2022 #1 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
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
Solution Eric C 28 Septembre 2022 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 : VB: Private Sub Worksheet_Deactivate() If Sheets.Count > 1 Then Me.Visible = xlSheetHidden End Sub Bonne journée @+ 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 : VB: Private Sub Worksheet_Deactivate() If Sheets.Count > 1 Then Me.Visible = xlSheetHidden End Sub Bonne journée @+ Eric c
Eric C XLDnaute Barbatruc 28 Septembre 2022 #2 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 : VB: Private Sub Worksheet_Deactivate() If Sheets.Count > 1 Then Me.Visible = xlSheetHidden End Sub Bonne journée @+ Eric c Vote positif 0 Vote négatif Solution
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 : VB: Private Sub Worksheet_Deactivate() If Sheets.Count > 1 Then Me.Visible = xlSheetHidden End Sub Bonne journée @+ Eric c
T tchi456 XLDnaute Occasionnel 28 Septembre 2022 #3 Bonjour Eric, C'est exactement ce que je cherchais. Votre code fonctionne parfaitement bien. Merci pour votre aide et bonne journée à vous. Vote positif 0 Vote négatif
Bonjour Eric, C'est exactement ce que je cherchais. Votre code fonctionne parfaitement bien. Merci pour votre aide et bonne journée à vous.