CelluleVide
XLDnaute Occasionnel
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
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