Filtre avec l'année seulement dans un textbox

Salut,
essaie ça :
sAn = TextBox.Text
Range("TonTableau").AutoFilter Field:=1, Criteria1:=">=" & sAn & "-01-01", _
Operator:=xlAnd, Criteria2:="<=" & sAn & "-12-31"

p.s. Je suis en aaaa-mm-jj ... à toi de formater au besoin
bonne journée

Bonsoir
J'ai un tableau classique avec en colonne B des dates.
J'ai un userform avec un textbox1 dans lequel je saisi l'année sur 4
caractères, ex : 2006
Je souhaite filtrer les dates par année avec le textbox1
Je vous remercie
Didier

Bonsoir,

http://cjoint.com/?hFurFqC1N0

Private Sub B_filtre_elabore_Click()
[I2].Formula = "=YEAR(B2)=" & Me.an
Range("A1:D1000").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("I1:I2"), Unique:=False
End Sub

Private Sub b_Filtre_Auto_Click()
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, _
Criteria1:=">=" & Format(DateSerial(Me.an, 1, 1), "mm/dd/yyyy"),
Operator:=xlAnd, Criteria2:="<=" & _
Format(DateSerial(Me.an, 12, 31), "mm/dd/yyyy")
End Sub

End Sub

Cordialement JB

Bonsoir
J'ai un tableau classique avec en colonne B des dates.
J'ai un userform avec un textbox1 dans lequel je saisi l'année sur 4
caractères, ex : 2006
Je souhaite filtrer les dates par année avec le textbox1
Je vous remercie
Didier

Un très grand merci à JB ainsi qu'à Jean-François
Très bonne soirée
Didier

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1154369944.475309.217850@h48g2000cwc.googlegroups.com...
Bonsoir,

http://cjoint.com/?hFurFqC1N0

Private Sub B_filtre_elabore_Click()
[I2].Formula = "=YEAR(B2)=" & Me.an
Range("A1:D1000").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("I1:I2"), Unique:úlse
End Sub

Private Sub b_Filtre_Auto_Click()
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, _
Criteria1:=">=" & Format(DateSerial(Me.an, 1, 1), "mm/dd/yyyy"),
Operator:=xlAnd, Criteria2:="<=" & _
Format(DateSerial(Me.an, 12, 31), "mm/dd/yyyy")
End Sub

End Sub

Cordialement JB

Bonsoir
J'ai un tableau classique avec en colonne B des dates.
J'ai un userform avec un textbox1 dans lequel je saisi l'année sur 4
caractères, ex : 2006
Je souhaite filtrer les dates par année avec le textbox1
Je vous remercie
Didier