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



--
Je suis juste de passage, Juste un petit aterrissage,
Je vais bientôt repartir, Vers l'Avenir

2 réponses

  1. 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
  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