Masquer plusieurs feuilles excel

Linkdarkness -  
Bonjour,

Dans le but d'optimiser mes lignes de codes, je chercherais une ligne de code qui me permettrais de masquer plusieurs feuilles excel.

Voici l'exemple que j'ai actuellement : 

 If Sheets("exclusive").Visible = True Then
    Sheets("exclusive").Select
    Sheets("exclusive").Visible = False
    End If


Ces lignes de codes sont répétées suivant le nombre de feuille dans le fichier existant.

Merci par avance de l'aide que vous pourrez m'apporter !

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. Zoul67
    Bonjour,

    Ta demande n'est pas déterministe...
    Peux-tu nous indiquer :
    - soit les feuilles à laisser visibles ;
    - soit celles à masquer ?

    A+
    1. linkdarkness
      Bonjour,

      En gros dans mon fichier je me déplace a l'aide de macro. Donc je souhaite masquer toutes les autres feuilles ce qui est déjà le cas avec mes lignes de codes citées plus haut.

      Mais je recherche à rassembler toutes les feuilles a masquer dans une seule ligne de code.

      dans le genre : 

      If Sheets(Array("exclusive", "exclusive 1", "exclusive 2")).Visible = True Then
    Sheets(Array("exclusive", "exclusive 1", "exclusive 2")).Select
    Sheets(Array("exclusive", "exclusive 1", "exclusive 2")).Visible = False
    End If


      Actuellement j'ai une dizaine de feuille masqué mais beaucoup d'autre sont amené a s'ajouter dans ce fichier.
      1. Zoul67
        linkdarkness 30 août 2013 à 13:17
        Bonjour,

        En gros dans mon fichier je me déplace a l'aide de macro. Donc je souhaite masquer toutes les autres feuilles

        Toutes les autres feuilles... que quelle(s) feuille(s) ?
    2. eriiic Contributeur
      Bonjour,

      Pas besoin de tester avant de masquer. Un exemple : 
      Sub masquerF()
    Dim sh As Worksheet
    For Each sh In Sheets
        If sh.Name <> "Feuil1" Then sh.Visible = xlHidden
    Next
End Sub

      eric