VBA Excel Autofilter

VBA Excel Autofilter - VB/VBA/VBS - Programmation

Marsh Posté le 20-11-2007 à 15:25:00    

Bonjour à tous,
 
Dans un tableau Excel, j'essaie par macro de faire un filtre automatique sur une colonne de dates afin de ne filtrer que les cellules pour une année glissante, c'est à dire les dates supérieures ou égales à maintenant et inférieures à maintenant + 1 an (en variables évidemment).
 
Voici mon code :
 
Dim moncritere1 As Date
Dim moncritere2 As Date
moncritere = Now
moncritere2 = Now + 366
Range("BD" ).AutoFilter Field:=1, Criteria1:=">" & moncritere1, Operator:=xlAnd, Criteria2:="<=" & moncritere2
 
Résultat de l'opération : aucune entrée trouvée !
 
Alors, je vais manuellement voir mon filtre : clic sur la flèche du filtre auto, Personnalisé => mes dates sont bonnes.
Je fais simplement OK, et c'est tout bon !!!
Je ne sais plus que penser ! Si quelqu'un pouvait m'aider, un grand merci par avance.
 

Reply

Marsh Posté le 20-11-2007 à 15:25:00   

Reply

Marsh Posté le 21-11-2007 à 16:40:11    

:hello:  
 
Heu... à la place de "Now", tu ne pourrais pas utiliser "Date" ?? , car il me semble que now renvoie la date... et l'heure, donc çà perturbe peut-être le filtre.

Reply

Marsh Posté le 21-11-2007 à 17:50:57    

Bonjour,
Merci Nico4664 pour ta réponse mais date ou now, même combat !
En fait, j'ai trouvé, avec LONG, ça fonctionne.
 
mirano

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed