Filtre excel Date Fermé

Question

Bonjour, 

J'ai un tableau avec une colonne date et j'ai besoin de filtrer les lignes dont les dates sont comprises entre aujourd'hui et aujourd'hui-10 (cells(3,21) et cells(4,21))

Voici mon code mais cela ne marche pas
Sub Macro4()Datedebut = CDate(Format(Cells(3, 21).Value, "dd/mm/yyyy"))Datefin = CDate(Format(Cells(4, 21).Value, "dd/mm/yyyy"))    ActiveSheet.ListObjects("Tableau26").Range.AutoFilter Field:=3, Criteria1:= _        ">=" & Datedebut, Operator:=xlAnd, Criteria2:="<=" & Datefin        End Sub

Une idée pour moi?

Merci d'avance

f894009 · Answer

Bonjour,

convertir en les dates en nombres

Sub Macro4()
    ActiveSheet.ListObjects("Tableau26").Range.AutoFilter Field:=3
    Datedebut = CDate(Format(Cells(2, 2).Value, "dd/mm/yyyy"))
    Datefin = CDate(Format(Cells(3, 2).Value, "dd/mm/yyyy"))

ActiveSheet.ListObjects("Tableau26").Range.AutoFilter Field:=3, Criteria1:= _
        ">=" & CLng(Datedebut), Operator:=xlAnd, Criteria2:="<=" & CLng(Datefin)
        
End Sub

Filtre excel Date

1 réponse

Discussions similaires