Filtre avec variable

[arma]

Bonjour à tous,

Je suis en train de me faire plaisir (à mon humble niveau) en créant une commande guidant pas à pas l’utilisateur dans la création d’un suivi de CA. Grâce à ce site notamment, j’ai surmonté la plupart des écueils sauf le dernier bien entendu : comment créer un filtre (en VBA) intégrant une variable ?
En l’occurrence, si j’ai dans ma commande:

Selection.AutoFilter Field:=1, Criteria1:=">=janv-2009", Operator:=xlAnd _
, Criteria2:="<=mars-2009"

Comment faire pour que "<=mars-2009" soit défini à l’aide d’une variable (« y » dans mon cas) ?
La variable « y » est déjà définie par un If …ElseIf précédemment mais même en modifiant le format ou la valeur, je n’arrive à rien de concluant.
Merci pour votre aide car je sèche sévèrement à un poil de la réussite.

 

[Catrice]

Re : Filtre avec variable

Bonjour,

Il faut que y soit un format date ou un N° de série date (par ex aujourd'hui = 39952)
Le mars-2009 récupéré par macro ne fontionnera pas tel quel.

donc :

y=39952
Selection.AutoFilter Field:=1, Criteria1:=">=janv-2009", Operator:=xlAnd , Criteria2:="<=" & y

ou bien y = #1/3/2009#
Inférieur à Mars 2009 doit normalement correspondre à <#1/3/2009#

Macro =>
Sub Test()
y = Format(DateSerial(2009, 3, 1), "mm/dd/yyyy")
'ou
'y = #1/3/2009#
'ou
'y = 39873
Range("A1").AutoFilter Field:=1, Criteria1:="<" & y
End Sub

Si c'est une cellule, tu peux faire =>
y=range("A1").Value2
Range("A1").AutoFilter Field:=1, Criteria1:="<" & y


Peux tu préciser comment est calculé y ?

Voir le fichier joint

 

[arma]

Re : Filtre avec variable

Merci beaucoup pour cette réponse. La mienne a été plus lente car il a fallu que je comprenne et transforme ton aide à mon besoin.
Effectivement, mon "y" était mal défini car s'il reprenait l'idée d'un format Date, je passerai sur la façon dont je m'y suis pris C'était assez loin de ta solution...
Encore merci car cela m'a permis de clore un gros boulot visant à rendre mes collègues un peu plus fainéant sur cette appli
(Donc merci de leur part également)