XL 2013 Masquage par macro des lignes dont la date est passée

[Gaelle64]

Bonjour à tous,
J'ai créé un calendrier sous Excel 2013.
Les lignes correspondent aux événements et j'ai (entre autres) une colonne "Date".
Je voudrais avoir un bouton pour pouvoir masquer les lignes dont la date est antérieure à celle du jour.
J'ai créé le bouton (ça ça va ) mais quand il s'agit de VBA je débute.
Et comme la commande est urgente, je m'adresse à ceux qui savent en espérant que vous pourrez m'aider.

Si cela peut être utile, voici l'embryon de macro que j'ai constitué :
Sub MasquerLignes()
Dim cel As Range
For Each cel In Range("D9200")
If InStr ([Date >= AUJOURDHUI()] =True
Then cel.EntireRow.Hidden = True
End If
Next
End Sub

Merci d'avance de votre aide.

 

[Hasco]

Bonjour,

A Tester et si ça va pas, joignez un fichier exemple avec votre macro.

Sub MasquerLignes()
    Dim cel As Range
    For Each cel In Range("D9:D200")
        cel.EntireRow.Hidden = IsDate(cel) And cel < Date
    Next
End Sub

Cordialement

 

[Gaelle64]

J'ai testé et les lignes "périmées" disparaissent effectivement mais j'ai une "Erreur d'exécution '13' : Incompatibilité de type" sur la ligne "cel.EntireRow.Hidden = IsDate(cel) And cel < Date".
Merci de votre aide.

 

[Hasco]

re,

Bien-sûr vous avez des formules qui retournent des erreurs. Alors la prochaine fois et pour s'épargner du temps et de l'énergie, joignez votre fichier dès le premier post.

Dans le fichier joint les deux boutons fonctionne. M'enfin les filtres sont faits pour ça normalement, alors deux autres macros pour filtrer les futures et défiltrer

Cordialement

 

[Gaelle64]

Excellent, merci beaucoup.
Ce fichier sera tellement plus facile à gérer grâce à vous.

Bonne journée.

 

[eriiic]

Bonjour,

pour illustrer les propos de roblochon M'enfin les filtres sont faits pour ça,des fois que tu ne connaisses pas :

Noter que Ce trimestre et Cette année masquent également les jours passés.
Mais c'est vrai que ça réclame 3 clics au lieu d'un
eric

 

[Gaelle64]

Merci eric pour ces infos.
Je ne connaissais effectivement pas.
Pour moi cela conviendrait mais je travaille avec des gens pressés et qui veulent des trucs simples...