Onglet masqué et n en reste qu un
jfqld
Messages postés
9870
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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
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
A voir également:
- Onglet masqué et n en reste qu un
- Numero masque - Guide
- Rouvrir onglet fermé chrome - Guide
- Mon pc s'allume mais lécran reste noir sans bip - Guide
- Numero masque code - Guide
- Combien de temps reste le sablier sur snap ✓ - Forum Snapchat
2 réponses
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)
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)
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)
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)
