Macro permettant de masquer toutes les feuilles excel

Pierrot93

XLDnaute Barbatruc

• 10 Octobre 2012

• #2

Re : Macro permettant de masquer toutes les feuilles excel

Bonjour,

Help, est-ce que quelqu'un pourrait me faire une ptite macro qui si dans une cellule "A1", c'est vide à une certaine date, toute les feuilles deviennent xlveryhidden ?

Cliquez pour agrandir...

petite remarque au passage, dans un classeur Excel, au moins une feuille doit être visible....

bon après midi
@+

 

Vote positif 0 Vote négatif

E

excelexpert

XLDnaute Nouveau

• 10 Octobre 2012

• #3

Re : Macro permettant de masquer toutes les feuilles excel

OK, L'idée serait de laisser un onglet qui s'appelle "menu", et le reste masqué

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Octobre 2012

• #4

Re : Macro permettant de masquer toutes les feuilles excel

Re,

essaye ceci :

Code:

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "menu" Then ws.Visible = xlSheetVeryHidden
Next ws
End Sub

 

Vote positif 0 Vote négatif

E

excelexpert

XLDnaute Nouveau

• 10 Octobre 2012

• #5

Re : Macro permettant de masquer toutes les feuilles excel

ça marche, sauf l'onglet menu n'est pas visible.

je rajoute comment le if avant pour dire : si A1= "vide", alors la macro sinon rien ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Octobre 2012

• #6

Re : Macro permettant de masquer toutes les feuilles excel

Re,

avec un test sur la date (a adapter) et A1 vide (nom feuille) à adapter :

Code:

Option Explicit
Sub test()
Dim ws As Worksheet
If Date = #12/31/2012# And IsEmpty(Sheets("nomfeuille").Range("A1").Value) Then
    For Each ws In Worksheets
        If ws.Name <> "menu" Then ws.Visible = xlSheetVeryHidden
    Next ws
End If
End Sub

vérifie bien le nom de ta feuille menu casse et espace compris

 

Vote positif 0 Vote négatif

E

excelexpert

XLDnaute Nouveau

• 11 Octobre 2012

• #7

Re : Macro permettant de masquer toutes les feuilles excel

Salut Pierrot,

je te remercie, tout fonctionne bien !

merci beaucoup !

 

Vote positif 0 Vote négatif