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
A voir également:
- Filtre automatque sur des date avec une macro
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Filtre whatsapp - Accueil - Messagerie instantanée
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Filtre teams - Accueil - Visio
5 réponses
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
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
