ledzepfred
XLDnaute Impliqué
Bonjour à tous,
voila deux jours que je me casse les dents sur le fichier ci-joint :
je vous explique : j'ai un combobox nommé Periode dans la feuille excel (et non dans un userform) contenant des dates au format (mmm-yy).
Je souhaite filtrer sur les dates de la colonne B en utilisant le code ci-dessous
Private Sub Periode_Change()
On Error Resume Next
Periode.Value = Format(Periode, "mmm-yy")
crit = Left(Format(Periode, "mm-yyyy"), 2) & "/2008"
If Periode <> "" Then [B5].AutoFilter Field:=2, Criteria1:="=*" & crit,Operator:=xlAnd
If Periode = "" Then [B5].AutoFilter Field:=2
Periode.Value = Format(Periode, "mmm-yy") 'force l'affichage de la valeur sous le format mmm-yy
end sub
Eh ben ça fonctionne pas pourtant quand je vais dans filtre personnalisé, il est écrit exactement ce que je souhaite pour que ça marche!!!!!
J'ai tout essayé : déclarer CRIT as long, Cdate... etc..., j'ai épluché des tonnes et des tonnes de pages de forum pour trouver la solution mais rien
ça ne marche pas!!!!!
Alors si enfin une ame charitable arrive à trouver une solution , je suis sur que ça aidera plein de pov p'tit développeur amateur
Merci d'avance
voila deux jours que je me casse les dents sur le fichier ci-joint :
je vous explique : j'ai un combobox nommé Periode dans la feuille excel (et non dans un userform) contenant des dates au format (mmm-yy).
Je souhaite filtrer sur les dates de la colonne B en utilisant le code ci-dessous
Private Sub Periode_Change()
On Error Resume Next
Periode.Value = Format(Periode, "mmm-yy")
crit = Left(Format(Periode, "mm-yyyy"), 2) & "/2008"
If Periode <> "" Then [B5].AutoFilter Field:=2, Criteria1:="=*" & crit,Operator:=xlAnd
If Periode = "" Then [B5].AutoFilter Field:=2
Periode.Value = Format(Periode, "mmm-yy") 'force l'affichage de la valeur sous le format mmm-yy
end sub
Eh ben ça fonctionne pas pourtant quand je vais dans filtre personnalisé, il est écrit exactement ce que je souhaite pour que ça marche!!!!!
J'ai tout essayé : déclarer CRIT as long, Cdate... etc..., j'ai épluché des tonnes et des tonnes de pages de forum pour trouver la solution mais rien
ça ne marche pas!!!!!
Alors si enfin une ame charitable arrive à trouver une solution , je suis sur que ça aidera plein de pov p'tit développeur amateur
Merci d'avance