Bonjour le Forum
Dans un classeur, j'ai plus de 50 feuilles, les unes avec onglet coloré, et que j'utilise souvent, et les autres avec l'onglet non coloré et que j'utilise très rarement.
En cherchant dans les forums, j'ai trouvé les macros suivantes :
Sub Afficher_Feuilles_Masquées()
For Each sh In ThisWorkbook.Sheets
If sh.Visible = False Then sh.Visible = True
Next
End Sub
Sub Masquer_Feuilles_Affichées()
Dim nbre As Byte, cptr As Byte
Application.ScreenUpdating = False
nbre = ThisWorkbook.Sheets.Count
cptr = 2
For cptr = 2 To nbre
Sheets(cptr).Visible = 0
Next
Application.ScreenUpdating = False
End Sub
J'utilise 2 boutons, l'un pour masquer toutes les feuilles, l'autre pour les afficher
Mais il se trouve que je ne veux masquer, en un seul clic, que les feuilles dont l'onglet n'est pas coloré, et que j'utilise rarement comme j'ai dit, puis les afficher en cas de besoin.
Pouvez-vous m'aider à compléter ces macros, qui fonctionnent d'ailleurs bien, pour pouvoir faire ce que je veux
Merci d'avance pour votre aide
Lipadec