Macro filtre date
MisterVBA
-
MisterVBA -
MisterVBA -
Je souhaiterai à l'aide d'une macro demander à l'utilisateur d'un fichier de saisir une date (mise en variable au format jj/mm/aaaa) dans une fenêtre du type Input box.
Puis Excel fais un filtre de tableau en fonction de cette date (excel filtre et prend toutes les dates après celle indiquée par l'utilisateur)
Voici mon code ou il ya un lorsqu'il filtre (Criteria1:>Datemin) et je n'arrive pas à corrigé l'erreur :
Sub Macro()
Dim Datemin As String
'********
Datemin = InputBox("Date de début (au format jj/mm/aaaa: ", "Filtre date", Date)
Selection.AutoFilter Field:=10, Criteria1:>Datemin, Operator:=xlAnd
End Sub
Merci pour votre aide
Puis Excel fais un filtre de tableau en fonction de cette date (excel filtre et prend toutes les dates après celle indiquée par l'utilisateur)
Voici mon code ou il ya un lorsqu'il filtre (Criteria1:>Datemin) et je n'arrive pas à corrigé l'erreur :
Sub Macro()
Dim Datemin As String
'********
Datemin = InputBox("Date de début (au format jj/mm/aaaa: ", "Filtre date", Date)
Selection.AutoFilter Field:=10, Criteria1:>Datemin, Operator:=xlAnd
End Sub
Merci pour votre aide
