AutoFilter dates et variables

[fennoo]

Bonjour à tous,

Je débute en VBA et je sollicite votre aide. Je sais que mon problème semble récurrent à première vue. J'ai justement essayé sa solution bien connue, mais elle ne fonctionne pas !

J'ai une colonne B remplie de données de type Date. Je voudrais réaliser une macro pour rechercher une date précise (jour+mois+année) contenue dans une variable.

Dim jourMois As Date
Dim lJourMois As Long

jourMois = DateSerial(2011, 1, 4)
lJourMois = jourMois
            
ActiveSheet.ListObjects("Sheet_1").Range.AutoFilter Field:=2, _
Criteria1:="=" & lJourMois, Operator:=xlAnd

J'ai également essayé ceci:

Dim dDate As Date, dTime As Date
Dim lDate As Long, dblDate As Double
Dim dDateTime As Long
    
dDate = DateSerial(2011, 1, 4)
lDate = dDate
    
dTime = TimeSerial(0, 0, 0)
dblTime = dTime
    
dDateTime = lDate + dblTime
    
ActiveSheet.ListObjects("Sheet_1").Range.AutoFilter Field:=2, _
Criteria1:="=" & dDateTime

Je pense que ce code est très correct. A un autre endroit de mon code, il fonctionne très bien. Mais pour une raison inconnue, là, il ne fonctionne pas. Je l'ai retourné dans tous les sens, en vain.

Si quelqu'un a une idée, je le remercie de me la proposer.

PS: Je travaille sur Excel 2010, mais il s'agit d'un document au format Excel 2007 (xls).

 

[Hippolite]

Re : AutoFilter dates et variables

Bonjour,
Avec un seul filtre automatique en colonne B de la feuille Feuil1 :

Sheets("Feuil1").Range("B1").AutoFilter Field:=1, Criteria1:=jourMois

A+

 

[fennoo]

Re : AutoFilter dates et variables

Bonjour a tous,

Je reviens vers vous car j'ai trouvé la solution à mon problème qui était toute bête, bien que l'erreur m'ait été fournie par des forums.

Merci Hippolite pour ton aide. Malheureusement, j'avais déjà essayé cette méthode qui n'avait pas fonctionné.

En fait, contrairement à mes 2 exemples, il ne fallait pas passer la variable de type Date en variable de type Long, mais directement la passer dans le critère du filtre telle quel. Pour être plus explicite, je vais corriger mes exemples.

Dim jourMois As Date

jourMois = DateSerial(2011, 1, 4)
           
ActiveSheet.ListObjects("Sheet_1").Range.AutoFilter Field:=2, _
Criteria1:="=" & jourMois

Et pour le suivant:

Dim dDate As Date, dTime As Date
Dim dDateTime As Date
   
dDate = DateSerial(2011, 1, 4)
dTime = TimeSerial(0, 0, 0)
dDateTime = dDate + dTime 
   
ActiveSheet.ListObjects("Sheet_1").Range.AutoFilter Field:=2, _
Criteria1:="=" & dDateTime

Voilà. A bientôt.