Filtrage années

bonjour,

j'ai un combobox4 qui me permet de filtrer les années de mon tableau. Cela ne fonctionne pas ?

Private Sub ComboBox4_change()
Dim annee%

annee = ComboBox4.Value

Worksheets("Astreinte").Range("A2").AutoFilter _
Field:=1, Criteria1:=annee, VisibleDropDown:=True

End Sub

Bonjour

Teste comme ceci

Private Sub ComboBox4_change()
Dim annee
annee = ComboBox4.Value
Worksheets("Astreinte").Range("A2").AutoFilter Field:=1, Criteria1:=">=1/1/" & annee, Operator:=xlAnd, Criteria2:="<=12/31/" & annee
End Sub

Merci

j'ai essayé de faire la même chose avec le filtre des "mois" juste en dessous, grâce au combobox5. j'ai mis cela, en vain :

Private Sub ComboBox5_Change()
Dim cel As Range
Dim mois

mois = ComboBox5.Value
For Each cel In Range(Range("A2"), Range("A65536").End(xlUp))
    If Month(cel) <> mois Then cel.EntireRow.Hidden = True
Next cel
End Sub

En fait je veux d'abord sélectionner l'année et ensuite le mois que je veux.

Bonjour,

J'ai mis cela pour sélectionner les mois :

'Choix du mois
Private Sub ComboBox5_Change()
Dim mois

mois = ComboBox5.Value
Set ws = Worksheets("Astreinte")

ws.Range("J2").AutoFilter field:=10, Criteria1:=mois, Operator:=xlAnd
End Sub

Mais cela ne me convient pas car j'ai été obligé de crée une colonne J qui ne m'arrange pas.

Je voudrais pouvoir sélectionner un mois comme pour les années ci-dessus.