Macro creer filtre par rapport a une date
Bonjour
j'ai un petit souci dans ma macro.
Je veux filtrer un BD sur une colonne de date, par rapport a une date que je note dans une Msgbox.
Macro : je note ma date dans msgbox, ensuite je ceer mon filtre.
Si j'arrete ma macro a ce niveau je m'apercois dans le filtre que le mois est inversé avec le jour
si quelqu'un peu m'aider, je me gratte la tête depuis trop longtemps
merci d'avance
Bonsoir,
peut-être entres-tu une date dans un "InputBox"?
dans ce cas, tu peux utiliser ce code :
Dim LaDate, LeTitre, Default, MaDate
LaDate = "Entrez une date"
LeTitre = "Ce que tu veux"
Default = "01/01/2008"
MaDate = InputBox(LaDate, LeTitre, Default)
[A1] = CDate(MaDate)Surtout la dernière ligne
Maintenant, si c'est dans une MsgBox, explique-moi comment tu fais....
Bonsoir
Merci de ton aide j'ai essayer ton code mais j'ai toujours le meme probleme si je met la date du 01/02/08 apres execution, je verifie dans filtre personalisé et j'ai 02/01/08
sinon mon code etait:
MSG = "Suprimer commandes receptionnés avant le"
REP1 = InputBox(MSG, Default, Title)
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=18, Criteria1:="<" & REP1, Operator:=xlAnd, Criteria2:="="
Re-,
non testé, en l'absence de fichier....
Selection.AutoFilter Field:=18, Criteria1:="<" & CDate(REP1), Operator:=xlAnd, Criteria2:="="