Bonjour,
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 y a un problème lorsque je filtre : je n'arrive pas à avoir les dates postérieures (après la date rentrée par l'utilisateur) et je n'arrive pas à corrigé l'erreur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
'******************
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:> =DateValue(Datemin), Operator:=xlAnd 
 
End Sub 
'*****************
Merci d'avance pour votre aide