Avancé ou autofiltre sur la plage de dates à partir des données de la cellule

Question

J'ai une feuille (Feuille1) où la colonne i est un champ de date. Je veux créer une macro qui demandera l'entrée de la date de début et de la date de fin, placez ces dates dans deux cellules, dites i38, i39, puis filtrez en utilisant ces données dans ces cellules. Est-ce possible? Je ne connais pas encore les macros et les VB, et je n'arrive pas à comprendre comment utiliser les données de cellule dans un filtre basé sur la date.

Merci pour toute aide.

Answer 1

Commencez par:

, la commande:

Sub FilterDateRange() 
    Dim d1 As String, d2 As String, r As Range 
    Set r = Range("I1:I26") 

    d1 = ">" & Application.InputBox(Prompt:="enter start date", Type:=2) 
    d2 = "<" & Application.InputBox(Prompt:="enter start date", Type:=2) 

    r.AutoFilter 
    r.AutoFilter Field:=1, Criteria1:=d1, Operator:=xlAnd, Criteria2:=d2 

    Range("I38") = Mid(d1, 2) 
    Range("I39") = Mid(d2, 2) 
End Sub 

peut produire:

EDIT # 1:

Pour comprennent les points d'extrémité (non seulement entre les points d'extrémité), utiliser ces lignes de code:

d1 = ">=" & Application.InputBox(Prompt:="enter start date", Type:=2) 
d2 = "<=" & Application.InputBox(Prompt:="enter start date", Type:=2)