Masquer plusieurs feuilles excel
Linkdarkness
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 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 :
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 !
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
-
Bonjour,
Ta demande n'est pas déterministe...
Peux-tu nous indiquer :
- soit les feuilles à laisser visibles ;
- soit celles à masquer ?
A+ -
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. -
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
