Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Filtrer entre valeur dans textbox1 et - 2 ans

Filtrer entre valeur dans textbox1 et - 2 ans

2 réponses
Avatar
Didier Novarin
Bonjour
J'essaie de créer un filtre afin d'avoir toutes les dates à partir du
textbox1 et jusqu'à - 2ans
Je vous remercie
Didier

Range("A3:P500").Select
Selection.AutoFilter Field:=9, Criteria1:=">=" & CDate(TextBox1- 2 ans) * 1,
Operator:=xlAnd, _
Criteria2:="<=" & CDate(TextBox1) * 1
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Didier Novarin
J'ai réussi à bricoler quelque chose :

Selection.AutoFilter Field:=9, Criteria1:=">=" & DateSerial(Year(TextBox1) -
2, Month(TextBox1), Day(TextBox1)) * 1, Operator:=xlAnd, _
Criteria2:="<=" & CDate(TextBox2) * 1

Didier

"Didier Novarin" a écrit dans le message de
news: %
Bonjour
J'essaie de créer un filtre afin d'avoir toutes les dates à partir du
textbox1 et jusqu'à - 2ans
Je vous remercie
Didier

Range("A3:P500").Select
Selection.AutoFilter Field:=9, Criteria1:=">=" & CDate(TextBox1- 2 ans) *
1, Operator:=xlAnd, _
Criteria2:="<=" & CDate(TextBox1) * 1



Avatar
Ardus Petus
Dim dDate As Date
dDate = CDate(textbox1.value)
Selection.AutoFilter _
Field:=1, _
Criteria1:=">=" & _
DateSerial(Year(dDate) - 2, Month(dDate), Day(dDate)), _
Operator:=xlAnd, _
Criteria2:="<=" & dDate

HTH
--
AP

"Didier Novarin" a écrit dans le message de
news:%
Bonjour
J'essaie de créer un filtre afin d'avoir toutes les dates à partir du
textbox1 et jusqu'à - 2ans
Je vous remercie
Didier

Range("A3:P500").Select
Selection.AutoFilter Field:=9, Criteria1:=">=" & CDate(TextBox1- 2 ans) *
1,

Operator:=xlAnd, _
Criteria2:="<=" & CDate(TextBox1) * 1