XL 2016 Onglets très masqués VBA à chaque réouverture de fichier

Fanny754 · 6 Mars 2024

Bonjour à tous,
Je galère sur un fichier Excel dans lequel j'ai 4 onglets très masqués (collaborateur clé / collaborateur prometteur / collaborateur performant / futur manager).
Je suis allée sur VBA pour les positionner en visible.
A chaque réouverture du classeur, les onglets redeviennent masqués. Or je voudrais qu'ils soient affichés en permanence, fermeture / réouverture comprise.
Pouvez-vous m'aider svp ?

Eric C · 6 Mars 2024

Bonsoir le forum
Bonsoir Fanny754

Fichier modifié

Bonne soirée
Eric c

laurent950 · 6 Mars 2024

Bonsoir,

Insérez ce code dans le module ThisWorkbook.

Ce code utilise deux procédures :
- AfficherOnglets pour rendre les onglets visibles
- MasquerOnglets pour les masquer.

La procédure Workbook_Open est déclenchée lors de l'ouverture du classeur
La procédureWorkbook_BeforeClose est déclenchée avant la fermeture du classeur.

Ces procédures assurent que les onglets appropriés sont toujours visibles.

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Appel de la procédure avant la fermeture du classeur
    MasquerOnglets
End Sub

Sub AfficherOnglets()
    ' Afficher les onglets nécessaires
    Sheets("collaborateur clé").Visible = xlSheetVisible
    Sheets("collaborateur prometteur").Visible = xlSheetVisible
    Sheets("collaborateur performant").Visible = xlSheetVisible
    Sheets("futur manager").Visible = xlSheetVisible
End Sub

Sub MasquerOnglets()
    ' Masquer les onglets non nécessaires
    Sheets("collaborateur clé").Visible = xlSheetVeryHidden
    Sheets("collaborateur prometteur").Visible = xlSheetVeryHidden
    Sheets("collaborateur performant").Visible = xlSheetVeryHidden
    Sheets("futur manager").Visible = xlSheetVeryHidden
End Sub

Fanny754 · 6 Mars 2024

Eric C à dit:
Bonsoir le forum
Bonsoir Fanny754

Fichier modifié

Bonne soirée
Eric c

Bonsoir Eric C,
Un grand merci ! Vous êtes au top ! Cela fonctionne parfaitement
Bonne soirée
Fanny754

Fanny754 · 6 Mars 2024

laurent950 à dit:
Bonsoir,

Insérez ce code dans le module ThisWorkbook.

Ce code utilise deux procédures :
- AfficherOnglets pour rendre les onglets visibles
- MasquerOnglets pour les masquer.

La procédure Workbook_Open est déclenchée lors de l'ouverture du classeur
La procédureWorkbook_BeforeClose est déclenchée avant la fermeture du classeur.

Ces procédures assurent que les onglets appropriés sont toujours visibles.

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean) ' Appel de la procédure avant la fermeture du classeur MasquerOnglets End Sub Sub AfficherOnglets() ' Afficher les onglets nécessaires Sheets("collaborateur clé").Visible = xlSheetVisible Sheets("collaborateur prometteur").Visible = xlSheetVisible Sheets("collaborateur performant").Visible = xlSheetVisible Sheets("futur manager").Visible = xlSheetVisible End Sub Sub MasquerOnglets() ' Masquer les onglets non nécessaires Sheets("collaborateur clé").Visible = xlSheetVeryHidden Sheets("collaborateur prometteur").Visible = xlSheetVeryHidden Sheets("collaborateur performant").Visible = xlSheetVeryHidden Sheets("futur manager").Visible = xlSheetVeryHidden End Sub

Bonsoir Laurent950,
Un grand merci pour la formule et votre rapidité pour la réponse ! Vous êtes super !
Bonne soirée
Fanny754

XL 2016 Onglets très masqués VBA à chaque réouverture de fichier

Fanny754

XLDnaute Nouveau

Pièces jointes

Eric C

XLDnaute Barbatruc

Pièces jointes

laurent950

XLDnaute Barbatruc

Fanny754

XLDnaute Nouveau

Fanny754

XLDnaute Nouveau

Discussions similaires