masquer ligne si date atteinte

[elodie77]

salut tout le monde!


il me semblait avoir vu il y a qq temps une macro permettant de masquer les lignes ayant dépassé la date du jour mais j'arrive plus à la retrouver.

y a t'il qq 1 qui sache où ça se trouve ou comment on peut faire?

merci d'avance

 

[Hervé]

bonjour elodie

une proposition :

Sub Bouton1_QuandClic()
'pour masquer les lignes
Dim c As Range

For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
&nbsp; &nbsp; Rows(c.Row).Hidden = IIf(c < Date, True, False)
Next c
End Sub
'------------------------------------------------------
Sub Bouton2_QuandClic()
'pour afficher les lignes
Rows.Hidden = False
End Sub

salut