Filtre automatque sur des date avec une macro

Fermé
zeb - 28 janv. 2008 à 18:18
 zeb - 29 janv. 2008 à 18:31
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
A voir également:

5 réponses

eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 7 168
28 janv. 2008 à 19:04
Bonsoir,

il te manque l'opérateur de comparaison
essaie avec criteria1:=">=" & date

eric
0
eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 7 168
28 janv. 2008 à 19:04
Bonsoir,

il te manque l'opérateur de comparaison
essaie avec criteria1:=">=" & date

eric
0
merci maisc ela ne fonctionne pas tout est vide
0
eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 7 168
29 janv. 2008 à 00:11
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
c est super je t en remercie cela fesait 1 semaine que je chercher grand merci
0