afficher une feuille masquée selon une date

[arvin]

bonjour à tous , voilà je souhaiterai afficher uniquement entre le 01/05/06 et le 15/05/06 une feuille de calcul préalablement masquée, et ensuite losqu'on appuie sur 'echap' par exemple, remasquée à nouveau cette feuille

est ce possible ?

merci à tous de votre aide

voici mon code mais moi je voudrais entre telle et telle date ?:

dim d as Date
d = month(now())
Worksheets(d).Activate

 

[porcinet82]

Salut Arvin,

Pour ce qui est de ta feuille a affichée ou a masquer selon la date, tu peux utiliser un code du genre :

Sub essai()
If Date > #5/1/2006# And Date < #5/15/2006# Then
    Sheets('feuil1').Visible = True
Else
    Sheets('feuil1').Visible = False
End If
End Sub

Concernant le fait d'appuyer sur échap pour la démasquer, je ne sais si c'est possible et je ne sais pas comment faire, mais tu devrais pouvoir trouver une autre solution.

@+

 

[arvin]

merci beaucoup c'est pile ce que je cherchais , pour le reste je pensais à un msgbox


merci encore