Filtre automatque sur des date avec une macro
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
-
ContributeurBonsoir,
il te manque l'opérateur de comparaison
essaie avec criteria1:=">=" & date
eric -
ContributeurBonsoir,
il te manque l'opérateur de comparaison
essaie avec criteria1:=">=" & date
eric -
merci maisc ela ne fonctionne pas tout est vide
-
ContributeurEffectivement, 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 -
c est super je t en remercie cela fesait 1 semaine que je chercher grand merci
