onglet masqué et n en reste qu un

Question

Bonjour,

je me suis permis de récupérer cette formule que j'ai mise mon excel.
elle permet de cacher plusieurs onglets et n'en garder qu un (visible) 
Sub masquer()
Dim cptr As Byte

For cptr = 1 To ThisWorkbook.Sheets.Count
    If Sheets(cptr).Name <> "menu" Then
        Sheets(cptr).Visible = 0
    End If
Next
End Sub

Impeccable cela fonctionne. J'ai fait un test sur un fichier avec 3 onglets. 2 ont été cachés, j'ai sauvegardé mon fichier (avec un seul onglet apparent en bas)

et comment je fais pour récupérer les 2 qui ont été cachés suite à la macro.

merci

Mike-31 · Answer

Salut,

Je reconnais ce code pour masquer les feuilles, voila celui pour les réafficher

Sub afficher_feuilles()  
    For i = 1 To Sheets.Count
    Sheets(i).Visible = xlSheetVisible
    Next
End Sub

ou
Sub afficher_feuilles()  
    For cptr = 1 To Sheets.Count
    Sheets(cptr).Visible = xlSheetVisible
    Next
End Sub

A+

Un problème sans solution est un problème mal posé  (Einstein)

Polux31 · Answer

bonjour,

En faisant :

Sub demasquer() 
Dim cptr As Byte 

For cptr = 1 To ThisWorkbook.Sheets.Count 
If Sheets(cptr).Name <> "menu" Then 
Sheets(cptr).Visible = True 
End If 
Next 
End Sub 

;o)

Onglet masqué et n en reste qu un

2 réponses

Discussions similaires

Newsletters