Filtrer les dates passées

Bonjour Forum !

Je voudrais appliquer un filtre à une liste, qui masque les lignes contenant des dates passées dans la colonne 2 (voir fichier joint).

Mon problème : je ne vois pas comment spécifier un critère de filtrage correspondant à : est supérieur à aujourdhui().

Quelqu'un peut-il m'aider sur ce coup-là ?

Merci !!!

Bonsoir, je pense que tu peux essayer cela

Leakim

Merci pour ta réponse............

.........mais je suis sur Excel 2003 où cette possibilité n'est pas offerte !

Bonjour

Avec un filtre élaboré

Sur cet exemple, en manuel, mais on peut aussi faire avec VBA et un bouton

Cordialement

En VBA et avec le bouton

Bonsoir

Ma contribution

Avec un simple filtre

Sub filter_date()
  If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
  Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter field:=2, Criteria1:=">" & CSng(Date)
End Sub

Je te ferai remarquer que cette action tu peux l'avoir directement à partir de la page d'Excel

Tu cliques sur la flèche et tu choisis (Personnalisée...) et tu y rentes les infos suivantes (voir image)

Merci à tous les contributeurs !

@Amadeus : merci !

@Game Over : merci pour le perfectionnement !

@Banzai64 :

Ce que tu dis est vrai, mais mon but était précisément d'avoir un bouton qui masque tout ce qui est passé, sans avoir à entrer la date manuellement.

Comme ton code se substitue à la saisie manuelle, c'est parfait !

Merci aussi !

Hum hum....

Je suis débutant-autodidacte en VBA, autant dire que je ne sais pas faire grand chose.

J'essaie d'adapter le code fourni par Banzai64 qui me va bien car il fait appel à un filtre.

Sub filtrer_date()
  If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
  Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter field:=2, Criteria1:=">" & CSng(Date)
End Sub

Mais je ne sais pas l'adapter pour qu'il s'applique à des dates figurant dans la colonne O, et à partir de la ligne 21.

Mieux, j'aimerais que le filtre s'applique à une plage nommée "A_FILTRER".

Quelqu'un saurait-il m'aider ?

Merci !!!

Bonsoir hum hum aussi

Normalement avec un petit fichier on ne se poserait pas la question : Que représente la plage nommée "A_FILTRER" ?

Hum hum = excuse-moi d'y revenir !

Tu as raison, un petit fichier est plus explicite.

Le voilà.

La plage A_FILTRER est créée.

Bonsoir

Si les colonnes de A à N ne sont pas vides (au moins 1 donnée par colonne) le code suivant fonctionne

Sub filtrer_date()
  If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
  Range("A_FILTRER").AutoFilter field:=15, Criteria1:=">" & CSng(Date)
End Sub

Le mieux cela serait de bien définir ta plage

Exemple si ta plage nommée "A_FILTRER =Feuil1!$M$20:$O$33"

Ce code fonctionne

Sub filtrer_date()
  If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
  Range("A_FILTRER").AutoFilter field:=3, Criteria1:=">" & CSng(Date)
End Sub

Super.

Merci beaucoup !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!