Discussion :

[adluma]

Bonjour,

Nous essayons désespérément à partir de dates (dd/mm/yyyy hh:mm) contenues dans des cellules nommées de réaliser par une macro un filtre chronologique entre ces deux dates, et en fait, le filtre se met bien en place. Mais ne s'active pas et le tableau ne présente pas de données alors que les bonnes dates sont enregistrées dans les données du filtre. Par contre si on va sur les paramètres du filtre et qu'on clique sur OK, ça fonctionne, on ne comprend plus rien !!!!

Voici notre prog :

Code :

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

1
2
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=4, Criteria1:= _
"<=" & Range("fin").Value & "", Operator:=xlAnd, Criteria2:=">=" & Range("debut").Value & ""

PLEASE HELP !!! C'est un projet urgent et nous sommes complètement perdues !

Merci d'avance !!!!!!!!

[antonysansh]

Bonjour adluma,

Dans ce genre de cas l'utilisation de l'enregistreur de macro peut être un excellent début de code.

Voir ce tuto : Excel et l'enregistreur de macro

Sinon pour te répondre avec le peu d'éléments donnés, je penserais a un problème de format de date.
Dans le classeur avec la langue locale une date va être au format jj/mm/aaaa alors qu'en vb c'est toujours le format mm/dd/yyyy.

[goldstar]

Bonjour,

Ne serai ce pas à cause des guillemets en trop dans:

Code :

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

1
2
 
Range("fin").

et

Code :

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

1
2
 
Range("debut").

Cordialement,

[antonysansh]

adluma parle de plages nommées donc Range("Nom de la plage") n'est pas choquant.

Par contre préciser le classeur et la feuille parents serait bien mieux.

[Docmarti]

Bonjour.

Essaie avec le format "m/d/yyyy"

Code :

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

1
2
3
4
5
debut = Format(Range("debut").Value, "m-d-yyyy")
fin = Format(Range("fin").Value, "m-d-yyyy")
 
ActiveSheet.Range("Tableau2").AutoFilter Field:=4, Criteria1:= _
"<=" & fin & "", Operator:=xlAnd, Criteria2:=">=" & debut & ""

[adluma]

Merci mais ce n'est pas ça le problème. Il comprend bien les dates. Ce n'est pas le souci, c'est juste comme s'il manquait le fait qu'on appuie sur OK. dans la mesure ou quand on appuie sur les filtres chronologiques, c'est les bonnes dates qui sont renseignées !!!! nous ne comprenons plus.... c'est vraiment étrange !!

[parmi]

Bonjour,

Ceci fonctionne.
À noter que mes cellules sont aux format Date ainsi que mes variables...

Code :

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

1
2
3
4
5
6
7
    Dim DateDebut As Date, DateFin As Date
 
    DateDebut = Range("D1")
    DateFin = Range("D2")
 
    ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:= _
        ">" & DateDebut, Operator:=xlAnd, Criteria2:="<" & DateFin