|
Masquer automatiquement certaines feuilles à l'ouverture du fichier
Pour cet exemple le fichier contient respectivement les feuilles "Index", "Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5", "Feuil6"... Dès l'activation d'une feuille quelconque, les feuilles "Index", "Feuil2", "Feuil5" resteront visibles tandis que les autres seront masquées... Partie à placer dans : 
Option Explicit 'Ti
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Dim FeuillesVisibles, Boucle As Long 'ce tableau contient la liste des feuilles visibles FeuillesVisibles = Array("Index", "Feuil2", "Feuil5") For Boucle = 0 To UBound(FeuillesVisibles) If Sh.Index = Sheets(FeuillesVisibles(Boucle)).Index Then Exit Sub Next Boucle 'si la feuille n'est pas dans la liste, on la masque Sh.Visible = False End Sub
Date de création : 24/05/2005 - 19:10
Dernière modification : 25/05/2005 - 22:26
Catégorie : Evènements
Page lue 3794 fois
Prévisualiser la page
Imprimer la page
|
|