|
Avec un simple bouton de commande, activer une liste déroulante et permettre d'accéder à celle ci en cliquant dessus...  Pour cet exemple le fichier contient les feuilles "index", "lundi", "mardi", "mercredi", "jeudi"...
'************************************ 'partie à coller dans un module '************************************ Option Explicit 'Ti Sub Menu(Optional Feuille As String) If Feuille <> "" Then Worksheets(Feuille).Visible = xlSheetHidden Application.CommandBars("Workbook tabs").ShowPopup 500, 200 If Feuille <> "" Then Worksheets(Feuille).Visible = xlSheetVisible End Sub
'******************************** 'partie à coller dans une feuille '********************************
'------------------------------------------------------ 'avec ce bouton la feuille "jeudi" ne sera pas affichée '------------------------------------------------------ Option Explicit 'Ti Private Sub CommandButton1_Click() Call Menu("jeudi") End Sub
'----------------------------------------------- 'avec ce bouton toutes les feuilles sont listées '----------------------------------------------- Option Explicit 'Ti Private Sub CommandButton1_Click() Call Menu End Sub
Date de création : 24/05/2005 - 18:59
Dernière modification : 25/05/2005 - 23:04
Catégorie : Feuille
Page lue 5868 fois
Prévisualiser la page
Imprimer la page
|