Macro permettant de masquer toutes les feuilles excel

[excelexpert]

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 ?

MERCI BEAUCOUP

 

[Pierrot93]

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 ?

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

bon après midi
@+

 

[excelexpert]

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é

 

[Pierrot93]

Re : Macro permettant de masquer toutes les feuilles excel

Re,

essaye ceci :

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

 

[excelexpert]

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 ?

 

[Pierrot93]

Re : Macro permettant de masquer toutes les feuilles excel

Re,

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

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

 

[excelexpert]

Re : Macro permettant de masquer toutes les feuilles excel

Salut Pierrot,

je te remercie, tout fonctionne bien !

merci beaucoup !