Pb de syntaxe ds filtre auto VBA

[CelluleVide]

bonjour,
j'ai un soucis de syntaxe dans un filtre auto. le filtre ne renvoi rien car quand je vais dans le filtre j'ai le texte "DateFinFab" au lieu de sa valeur idem pour les autres variables.

Voici mon code:

Sub filtre()
'Variables:
Dim DateFinFab As Date
Dim DateFinFab2 As Date
Dim DateCreation As Date

DateCreation = InputBox("ENTREZ LA DATE DE CREATION", "DATE DE CREATION")
DateFinFab = InputBox("ENTREZ LA DATE DE FIN FAB", "Date de Fin")
DateFinFab2 = DateFinFab + 7
Selection.AutoFilter Field:=5, Criteria1:=">= DateFinFab", operator:=xlAnd, Criteria2:="< DateFinFab2"
Selection.AutoFilter Field:=4, Criteria1:="<DateCreation"
End Sub

 

[lapix]

Re : Pb de syntaxe ds filtre auto VBA

Salut cellulevide

A priori, si tu mets le nom de ta variable entre quote, tu obtients effectivement une chaine '>=Datefinfab'.
Par contre avec la syntaxe suivante tu recupere la valeur de ta variable.

Selection.AutoFilter Field:=5, Criteria1:=">= " & DateFinFab, operator:=xlAnd, Criteria2:="< " & DateFinFab2
Selection.AutoFilter Field:=4, Criteria1:="<" & DateCreation


Bonne journee