Re : au secours je craque (combobox autofilter date)
merci kjin pour ta réponse,
ton code m'a bien aidé pour trouver la solution. Tu étais sur la bonne piste mais cela ne fonctionne que pour les mois à 31 jours et ne récupère pas les lignes éventuelles correspondant au 31 du mois.
J'ai tout d'abord ajouté des conditions pour les autres mois mais février et décembre posait encore problème (à cause de l'année bisextile et du changement d'année) et comme j'avais pas envie d'avoir 4 pages de if (j'exagères
) je me suis dit plutôt que de filtrer entre le 01(>=) et le 30 (<=) du même mois, essayons entre le 01(>=) du mois saisi et le 01(<) du mois+1 sauf pour décembre bien entendu
. Au final le code ci-dessous fonctionne à merveille!!
Autre chose : la première ligne 'Periode.Value = Format(Periode, "mmm-yy")
est superflue
Sans toi je n'y serai pas arriver, un grand merci à toi!!!!
Private Sub Periode_Change()
On Error Resume Next
'Periode.Value = Format(Periode, "mmm-yy")
MOIS1 = Month(Periode)
MOIS2 = Month(Periode) + 1
If MOIS1 <= 11 Then [B5].AutoFilter Field:=2, Criteria1:=">=" & MOIS1 & "/01/2008", Operator:=xlAnd, Criteria2:="<" & MOIS2 & "/01/2008"
If MOIS1 = 12 Then [B5].AutoFilter Field:=2, Criteria1:=">=" & MOIS1 & "/01/2008", Operator:=xlAnd, Criteria2:="<=" & MOIS1 & "/31/2008"
If MOIS1 = "" Then [B5].AutoFilter Field:=2
Periode.Value = Format(Periode, "mmm-yy")
End Sub