Masquer plusieurs feuilles excel

Linkdarkness -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 3
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Bonjour,

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

A+
0
Réponse 2 / 3
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.
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
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) ?
0
Réponse 3 / 3
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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

0