Filtre automatique sur date

[PrinceCorwin]

Bonjour le Forum,

J'ai un petit soucis sur un filtre automatique sur une date.
Je récupère la Date depuis un InputBox et je l'utilise pour filtrer la colonne.

Mais le résultat est tout à fait surprenant...

Ci-joint le fichier récalcitrant.

Merci

 

[Guest]

Re : Filtre automatique sur date

Bonjour,

Sub CompteDemerite()
'
    Dim Demerite() As Double
    Dim LeJour As Variant
    LeJour = InputBox("Veuillez entrer la date pour le calcul de la moyenne du démérite :", "Date du jour")
    If IsDate(LeJour) Then
        ActiveSheet.Range("A1:A500").AutoFilter Field:=1, Criteria1:="=" & CDate(LeJour), Operator:=xlAnd
    End If
End Sub

A+

 

[bataggone]

Re : Filtre automatique sur date

bonjour tt le monde
essai ça

 

[PrinceCorwin]

Re : Filtre automatique sur date

Bonjour tous,
@Hasco : Désolé, mais le résultat est identique. Dès le filtre automaqtique activé , toutes les lignes disparraissent.

@Bataggone : Ton fichier fonctionne. Mais je suis un grand curieux devant le mystère éternel de l'informatique !
Peux-tu m'expliquer pourquoi cela fonctionne ?
Comment se fait-il que la colonne E soit filtrée, alors que le Field est égal à la colonne 1 ???? 😕

 

[PrinceCorwin]

[RESOLU] Filtre automatique sur date

Bonjour tous,

Problème résolu.
Solution : Pour un critère de date il ne faut pas mettre le signe "=" comme dans une formule.

[A1].autofilter criteria1:= laDate

J'ai au moins 1,5 kilos de cheuveux en moins !!

Merci à vous tous

 

[MJ13]

Re : Filtre automatique sur date

Bonjour à tous

Merci à tous 🙂 car ayant été confronté au même problème de filtrage des dates, la plupart de vos solutions ne fonctionnaient pas sur mon fichier. J'ai pu le faire ainsi:

Sub Tri_Date_Question_XL2007()
JourT = InputBox("Jour (JJ/MM)?")
Jour = CDate(JourT)
ActiveSheet.Range("$A$2:$Q$2000").AutoFilter Field:=2, Criteria1:= _
        Jour, Operator:=xlAnd
End Sub
Sub Tri_Date_Activecell_XL2007()
'JourT = InputBox("Jour (JJ/MM)?")
JourT = ActiveCell
Jour = CDate(JourT)
ActiveSheet.Range("$A$2:$Q$2000").AutoFilter Field:=2, Criteria1:= _
        Jour, Operator:=xlAnd
End Sub

 

[PrinceCorwin]

Re : Filtre automatique sur date

Bonjour, Bonjour,

Je dois remercier Jacques BOISGONTIER pour son site excel. C'est en re -re -relisant ces explications que cela m'a sauté aux yeux.
Quand il faisait un filtre date supérieur ou inférieur, il mettait le symbole ">", "<" . Mais quand c'était à une date, y avait pas le symbole "="..
Dur.


Bonne continuation...

 

[Guest]

Re : Filtre automatique sur date

Re,

N'est-ce pas ce que je proposais au post #2 dans :
ActiveSheet.Range("A1:A500").AutoFilter Field:=1, Criteria1:="=" & CDate(LeJour), Operator:=xlAnd

A+

 

[PrinceCorwin]

Re : Filtre automatique sur date

Bonjour Hasco, tous,

En fait, quand il faut que le filtre soit égal à une date il ne faut pas "rajouter" le signe =
on note simplement :

activesheet.[A1].autofilter field:=1, criteria1:= LeJour, operator:= xlAnd

Par contre, s'il faut que ce soit antérieur ou postérieur à une date, on note le symbole, comme ceci:

activesheet.[A1].autofilter field:=1, criteria1:= ">=" & LeJour, operator:=xlAnd

activesheet.[A1].autofilter field:=1, criteria1:= "<=" & LeJour, operator:=xlAnd

Si on note :

activesheet.[A1].autofilter field:=1, criteria1:= "=" & LeJour, operator:=xlAnd

Le filtre retourne aucune ligne... Bizarre autant qu'étrange.
Comme tu l'as noté en post#2, comme je l'avais fait en #1.

En espérant que cela soit plus clair comme explication.

Cordialement

 

[Guest]

Re : Filtre automatique sur date

Re,

Oui très bizarre, d'autant que c'est la notation(avec "=" et CDate) que j'utilise depuis des années et qui fonctionne chez moi, sous 2002, 2007, 2010.

A+

 

[BOISGONTIER]

Re : Filtre automatique sur date

Bonjour,

Pour un critère, operator:=xlAnd ne sert à rien.

Le filtre automatique

JB

 

[MJ13]

Re : Filtre automatique sur date

Bonjour à tous

C'est très intéressant tous ces trucs 🙂.

Sinon on pourrait aussi l'écrire ainsi pour filtrer une date:

Sub CompteDemerite()
ActiveSheet.Range("A1:A500").AutoFilter Field:=1, Criteria1:=CDate(InputBox("Date(J/M")), Operator:=xlAnd
End Sub