Sujet Précédent Sujet Suivant

Fermer des feuilles en cascade, Excel.

adrienDN11 Messages postés 589 Statut Membre -  
adrienDN11 Messages postés 589 Statut Membre -
Bonjour,

J'aurais besoin de savoir comment rendre visible ou invisible des feuilles sous Excel, mais sans que ça fasse bugger le tout.

Parce que, lorsque je le fais, Il m'ouvre toutes les fenêtres à ouvrir et masque celles à masquer.

Mon code est du type :

Private Sub OptionButton1_click

Sheets("Feuil1").Visible = xlSheetVisible
Sheets("Feuil2").Visible = xlSheetVisible
Sheets("Feuil3").Visible = xlSheetVisible
Sheets("Feuil4").Visible = xlSheetVisible

Sheets("Feuil1").Visible = xlSheetHidden
Sheets("Feuil2").Visible = xlSheetHidden
Sheets("Feuil3").Visible = xlSheetHidden
Sheets("Feuil4").Visible = xlSheetHidden

End Sub

Mais, testez vous même, lorsqu'on arrive à en ouvrir et fermer 20 d'un coup, ça fait un effet "drôle".

Merci


A voir également:

2 réponses

Réponse 1 / 2
Info
 
Bonjour,

Ajouter une ligne pour désactiver l'affichage pendant l'exécution. 

Private Sub OptionButton1_click 

Application.ScreenUpdating = False

Sheets("Feuil1").Visible = xlSheetVisible 
Sheets("Feuil2").Visible = xlSheetVisible 
Sheets("Feuil3").Visible = xlSheetVisible 
Sheets("Feuil4").Visible = xlSheetVisible 

Sheets("Feuil1").Visible = xlSheetHidden 
Sheets("Feuil2").Visible = xlSheetHidden 
Sheets("Feuil3").Visible = xlSheetHidden 
Sheets("Feuil4").Visible = xlSheetHidden 

Application.ScreenUpdating = True

End Sub


Info
1
Réponse 2 / 2
adrienDN11 Messages postés 589 Statut Membre 137
 
Bonsoir,

Merci, ça fonctionne très bien, pile ce que je recherchais.

Merci à toi Info

Adrien
0