Discussion :

[MisterVBA]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim dteMin
Do
    dteMin = InputBox("entrez date sous format jj/mm/aaaa")
Loop Until IsDate(dteMin) Or dteMin = ""
 
With Range("A1:R31")  ' à adapter à ta plage
    .AutoFilter
    If dteMin <> "" Then
        dteMin = CLng(CDate(dteMin))
        .AutoFilter Field:=10, Criteria1:=">=" & dteMin
    End If
End With