Sujet Précédent Sujet Suivant

Masquer plusieurs feuilles excel

Fermé
Linkdarkness - 29 août 2013 à 18:45
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 - 3 sept. 2013 à 19:44
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 !
A voir également:

3 réponses

Réponse 1 / 3
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
30 août 2013 à 09:25
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
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 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 lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
30 août 2013 à 13:59
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 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 243
3 sept. 2013 à 19:44
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