Filtre excel Date
bla
-
bla -
bla -
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
Une idée pour moi?
Merci d'avance
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
1 réponse
-
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-
Super ça marche, merci!
Par contre je voulais effectuer des calculs après sur les cellules filtrées mais si je fais ma boucle while sur les lignes avec une variable i et i=i+1 en fin de boucle, le calcul ne prend pas en compte le filtre effectué auparavant...
Savez-vous comment remédier à ce problème?
-
