afficher plusieur feuilles en 1 fois

[H@nnoun]

Bonjour et Bonne Annee a tous vous souhaite sante et bonheur

j'ai 55 feuilles je dois masquer 52 feuilles et les afficher en une fois
Question comment faire pour afficher plusieurs feuille en une operation?


Merci de votre reponse

 

[michel]

bonsoir H@nnoun

tu peux tester la procedure ci dessous pour afficher toutes les feuilles masquées

Sub AfficherFeuilles()
Dim i As Byte
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
If Sheets(i).Visible = False Then Sheets(i).Visible = True
Next i
Application.ScreenUpdating = True
End Sub

bonne soirée
michel

 

[Ti]

pour sélectionner les feuilles à afficher ou à masquer, tu peux utiliser un array du genre :

Sub AfficheCache(OnOff As Boolean)
Dim Ws
Application.ScreenUpdating = False
For Each Ws In Array("Feuil1", "Feuil2", "Feuil3")
Worksheets(Ws).Visible = OnOff
Next Ws
Application.ScreenUpdating = True
End Sub

Sub Teste()
AfficheCache True
End Sub

Evidemment, à toi de mettre dans ton array le nom des feuilles à sélectionner

 

[H@nnoun]

RE Bonjour a tous

Merci pour vos reponses j'ai opte pour la solut de Michel plus facile a gerer
A + H@nnoun

 

[Roland]

Bonsoir à tous petit conseil (sauf erreur ....)
la ligne
Application.ScreenUpdating = True
n'est pas nécessaire en fin de procédure elle est implicite de même lors d'un appel de Box ou de UserForm.

Il n'y a pas de petites économies Hi! Hi!

A+ Roland

 

[Ti]

Moi, je suis les recommandations de l'aide d'Excel qui dit :

"N'oubliez pas d'affecter de nouveau la valeur True à la propriété ScreenUpdating à la fin de la macro."

donc je mets ScreenUpdating = True à la fin et je pense que c'est beaucoup plus sûr ainsi.