Discussion :

[L0401684]

Bonjour a tous,


Je souhaite filtrer dans la colonne O intitule "Valid to" qui comprends des dates. Mon objectif est filtrer/sélectionner et supprimer les dates inférieures à aujourd'hui.

J'ai commence un code mais je n'arrive pas à formuler la date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:Q1").AutoFilter Field:=15, Criteria1:= >Today ()

Je vous remercie

[joe.levrai]

Bonjour,

la date du jour s'obtient via la fonction Date.
en utilisant une date sur un filtre automatique, il est en général nécessaire d'utiliser son numéro de série, qu'on peut par exemple obtenir en convertissant la date en double (CDbl(Date))

mais en l'occurrence, si l'objectif est de supprimer des lignes, il est préférable d'utiliser un filtre avancé pour exporter les lignes répondant au critère Date et de supprimer l'ancienne feuille
http://philippetulliez.developpez.co...dvancedfilter/

[L0401684]

Okay Merci.

Est-ce vraiment le seul moyen ?

Auparavant je filtrais déjà sur une autre colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub filter()
 
Range("A1:Q1").AutoFilter Field:=12, Criteria1:="Yes"
 
Range("A2", Range("A2").End(xlDown).End(xlToRight)).Delete
 
ActiveSheet.ShowAllData

[joe.levrai]

Une possibilité ne signifie pas que c'est l'unique solution, surtout en VBA

Je t'ai donné la fonction Date qui te renvoie la date du jour, et préconisé de l'utiliser au format Double avec la façon de le faire
Il ne te reste qu'à écrire ta ligne Range(blabla).Autofilter etc... avec Cdbl(Date) en critère