Formule VBA pour filtrage

Résolu/Fermé
Xenos1705 Messages postés 93 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 11 juin 2018 - 18 nov. 2016 à 10:49
Xenos1705 Messages postés 93 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 11 juin 2018 - 18 nov. 2016 à 15:06
Bonjour à tous,

Actuellement, j'ai le code suivant qui me permet de filtrer toutes les donnèes antérieures au 01.01 de l'année en cours:

Selection.AutoFilter Field:=9, Criteria1:="<=" & CDbl(CDate("01/01/" & Year(Date)))


Ce que je souaiterais à présent c'est adapate ce code de deux manière diffèrentes:

La première, je souhaiterais retenir tous les éléments antérieures à aujourdhui. Donc aujourd'hui-1.
La deuxième, je souhaiterais retenir tous les éléments antérieures à moins deux jours. Donc aujourd'hui-2.

D'avance merci pour celui qui pourra m'aider.
Excellente journée à tous.


Xenos

1 réponse

Zoul67 Messages postés 1954 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 3 février 2022 147
18 nov. 2016 à 11:07
Bonjour,

Je n'ai pas essayé mais suis assez tenté par :
Selection.AutoFilter Field:=9, Criteria1:="<=" & CDbl(CDate(Date)-1)

et
Selection.AutoFilter Field:=9, Criteria1:="<=" & CDbl(CDate(Date)-2)


A+
0
Xenos1705 Messages postés 93 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 11 juin 2018
18 nov. 2016 à 15:06
Hello,

Cela fonctionne parfaitement...

Merci bcp et très rapide en plus...
0