Discussion :

[ramon1]

Bonjour,

Pouvez me préciser quelle est l'erreur de syntaxe de la macro ci-après avec variable sur une date début (>= à) et une date fin (<= à) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("A2:Q126").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=7, Criteria1:=">= & VDEBUT & ", Operator:=xlAnd _
        , Criteria2:="<= & <VFIN & "

Merci pour votre réponse

[Fvandermeulen]

Salut Ramon1 et bienvenue,
Sans avoir testé j'aurais tendance à écrire ceci, car si VDEBUT et VFIN sont tes variables elles ne doivent pas être comprises dans les " ":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("A2:Q126").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=7, Criteria1:=">=" & VDEBUT, Operator:=xlAnd _
        , Criteria2:="<=" & <VFIN

A+

[Gorfael]

Salut ramon1 et Bonne et heureuse année à tous
Si on suppose que Vdebut et Vfin sont des variables dates, les critères devraient être :">=" & Vdebut et "<=" & Vfin
Mais, personnellement, j'ai toujours des problèmes avec les dates. donc, je préfère utiliser le fait que ce soit un entier long. Un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim VDEBUT as Date, VFIN as Date
VDEBUT = DateSerial(2010, 12, 5)
VFIN = DateSerial(2010, 12, 10)
ActiveSheet.AutoFilterMode = False
Range("A2:Q126").AutoFilter Field:=7, Criteria1:=">=" & CLng(VDEBUT), Operator:=xlAnd, Criteria2:="<=" & CLng(VFIN)
End Sub

Là, on définit les deux variables en date et on les utilise en Long, bien que la colonne G gère bien des dates.
A+