Filtre automatque sur des date avec une macro
zeb
-
zeb -
zeb -
Bonjour,
j'essai de remplacer ce filtre automatique avec des criteres sur la date la premiere fonctionne,mais la seconde me donne bien la date mais pas les dates superieur
Sub Macro5()
Columns("D:D").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=18/01/2008", Operator:=xlAnd
End Sub
celle que je voudrait me servir mais je voudrais en critere pouvoir mettre >= date
Sub Macro5()
Columns("D:D").Select
d=date
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=d, Operator:=xlAnd
End Sub
j ai essai les "" les ** >= et divers rien a faire
merci si vous avez une solution
j'essai de remplacer ce filtre automatique avec des criteres sur la date la premiere fonctionne,mais la seconde me donne bien la date mais pas les dates superieur
Sub Macro5()
Columns("D:D").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=18/01/2008", Operator:=xlAnd
End Sub
celle que je voudrait me servir mais je voudrais en critere pouvoir mettre >= date
Sub Macro5()
Columns("D:D").Select
d=date
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=d, Operator:=xlAnd
End Sub
j ai essai les "" les ** >= et divers rien a faire
merci si vous avez une solution
Configuration: Windows Vista Internet Explorer 7.0
5 réponses
-
Bonsoir,
il te manque l'opérateur de comparaison
essaie avec criteria1:=">=" & date
eric -
Bonsoir,
il te manque l'opérateur de comparaison
essaie avec criteria1:=">=" & date
eric -
-
Effectivement, on est obligé de convertir en numérique pour que ça marche alors:
d = CDbl(Date)
Selection.AutoFilter Field:=1, Criteria1:=">=" & d, Operator:=xlAnd
eric -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
