A voir également:
- Code Vba Pour masquer les Feuilles
- Code Vba Pour masquer les Feuilles ✓ - Forum - Bureautique
- Code vba pour masquer feuilles suivant le nom ✓ - Forum - Bureautique
- Simplifier Code VBA pour masquer lignes ✓ - Forum - VB / VBA
- Code VBA agissant sur 2 feuilles ✓ - Forum - Excel
- Code vba pour enregistrer une feuille excel en pdf ✓ - Forum - Excel
10 réponses
eriiic
- Messages postés
- 23558
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 12 octobre 2020
Bonsoir,
Juste un complément à la macro de michel qui n'a pas dû tout lire.
Pour ne pas pouvoir les ré-afficher par le menu remplace:
.Visible = 0 par .Visible = xlSheetVeryHidden
Juste un complément à la macro de michel qui n'a pas dû tout lire.
Pour ne pas pouvoir les ré-afficher par le menu remplace:
.Visible = 0 par .Visible = xlSheetVeryHidden
Sub masquer()
Dim nbre As Byte, cptr As Byte
Application.ScreenUpdating = False
nbre = ThisWorkbook.Sheets.Count
cptr = 2
For cptr = 2 To nbre
Sheets(cptr).Visible = xlSheetVeryHidden
Next
Application.ScreenUpdating = False
End Suberic
Signaler
MOMO
merci mr ERIC
michel_m
- Messages postés
- 16233
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 13 octobre 2020
Bonjour,
Worksheets("Feuil2").visible=0
pour rendre visible
Worksheets("Feuil2").visible=
Worksheets("Feuil2").visible=0
pour rendre visible
Worksheets("Feuil2").visible=
michel_m
- Messages postés
- 16233
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 13 octobre 2020
re,
En supposant que ta feuille principale est la première concue et la première du classeur
Sub masquer()
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
En supposant que ta feuille principale est la première concue et la première du classeur
Sub masquer()
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
gham
- Messages postés
- 46
- Date d'inscription
- samedi 8 décembre 2007
- Statut
- Membre
- Dernière intervention
- 14 juin 2008
Oui c'est ça Merci, mais en allant au format/Feuille/ on trouve les feuilles masquées, ce que je veux qu'elles soient aussi masquer dans Formt/Feuille.
Edouard
Juste une petite précision (suite à problème rencontré) : Excel a besoin de garder toujours au moins une feuille visible.
Dans mon cas, il y avait 2 feuilles (test et résultat) : il faut donc prévoir dans sa macro d'afficher la seconde feuille avant de masquer la première; sinon cela bugge.
Dans mon cas, il y avait 2 feuilles (test et résultat) : il faut donc prévoir dans sa macro d'afficher la seconde feuille avant de masquer la première; sinon cela bugge.
gham
- Messages postés
- 46
- Date d'inscription
- samedi 8 décembre 2007
- Statut
- Membre
- Dernière intervention
- 14 juin 2008
Merci ami
mais je veux un code pour masquer toutes les feuilles du ckasseur qui contient plus de 20 feuilles.
Toutes les feuilles à la fois sauf bien sûr la principale
mais je veux un code pour masquer toutes les feuilles du ckasseur qui contient plus de 20 feuilles.
Toutes les feuilles à la fois sauf bien sûr la principale
michel_m
- Messages postés
- 16233
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 13 octobre 2020
Exact, Merci Eric
Beckett299
Salut, je pense que le second "Application.ScreenUpdating" devrait être rétabli par "= True".
Ce qui donne :
_______________________________________
Sub masquer()
Dim nbre As Byte, cptr As Byte
Application.ScreenUpdating = False
nbre = ThisWorkbook.Sheets.Count
cptr = 2
For cptr = 2 To nbre
Sheets(cptr).Visible = xlSheetVeryHidden
Next
Application.ScreenUpdating = True
End Sub
_______________________________________
Bon codage à tous !
Beckett299
Ce qui donne :
_______________________________________
Sub masquer()
Dim nbre As Byte, cptr As Byte
Application.ScreenUpdating = False
nbre = ThisWorkbook.Sheets.Count
cptr = 2
For cptr = 2 To nbre
Sheets(cptr).Visible = xlSheetVeryHidden
Next
Application.ScreenUpdating = True
End Sub
_______________________________________
Bon codage à tous !
Beckett299
michel_m
- Messages postés
- 16233
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 13 octobre 2020
bonjour
quelle réactivité! 2 ans après!
je pense que le second "Application.ScreenUpdating" devrait être rétabli par "= True".
Tu penses mal.
Si la macro rend la main au systeme, il n'est pas nécessaire de rétablir à "true"
Consulte cet article de Laurent Longre:
http://xcell05.free.fr/pages/prog/accvba.htm
quelle réactivité! 2 ans après!
je pense que le second "Application.ScreenUpdating" devrait être rétabli par "= True".
Tu penses mal.
Si la macro rend la main au systeme, il n'est pas nécessaire de rétablir à "true"
Consulte cet article de Laurent Longre:
http://xcell05.free.fr/pages/prog/accvba.htm