macro filtre prbm format date

megno · 4 Août 2010

Bonjour,

J'aimerais que ma macro effectue un filtre en fonction d'un critère contenu dans un autre fichier.
Le hic c'est que ce critère est une date et que ça foire parce que - je pense- le format date ne doit pas être reconnu.

Voici le code :

Sheets("Transport LOU").Select
d = Range("E1").Value
Workbooks.OpenText (Sheets("Transport LOU").Cells (3, 5).Value)
nom = ActiveWorkbook.Name
Windows(nom).Activate
Selection.AutoFilter Field:=1, Criteria1:=d

où E1 = TEXTE(date;"mmmm-aa") en l'occurence = à Juin-10
et où la colonne A filtrée de la feuille Transport LOU ne contient que des dates au format mmmm-aa.

J'aimerais donc obtenir grâce au filtre que les lignes Juin-10 mais ça ne marche pas : aucune cellule n'apparait

Voici un lien vers le fichier, j'ai mis les 2 feuilles dans le même classeur :
Xooimage

Quelqu'un pourrait-il me sortir de cette mauvaise passe svp?

Guest · 4 Août 2010

Re : macro filtre prbm format date

Bonjour,

Sans avoir télécharger le fichier.

Code:

    Dim Crit1 As String, Crit2 As String
    With Range("E1")
        Crit1 = ">=" & Format(DateSerial(Year(.Value), Month(.Value), 1), "mm/dd/yyyy")
        Crit2 = "<=" & Format(DateSerial(Year(.Value), Month(.Value) + 1, 0), "mm/dd/yyyy")
    End With
    Debug.Print Crit1, Crit2
    Selection.AutoFilter Field:=1, Criteria1:=Crit1, Operator:=xlAnd, Criteria2:=Crit2

A+

megno · 4 Août 2010

Re : macro filtre prbm format date

Là franchement Hasco un grand merci à toi!!!
ça fait un moment que je suis bloqué dessus et ça marche du feu de dieu!
Merci bcp!!!

tototiti2008 · 4 Août 2010

Re : macro filtre prbm format date

Bonjour à tous,

sinon des pistes par là, peut-être, mais c'est vrai que c'est pas toujours simple...

[XL-2000] valeur dans filtre auto qui ne fonctionne pas - Forum des professionnels en informatique

Guest · 4 Août 2010

Re : macro filtre prbm format date

Re,

@Tototiti,

Dans ma proposition:

Code:

 Dim Crit1 As String, Crit2 As String
    With Range("E1")
        Crit1 = ">=" & Format(DateSerial(Year(.Value), Month(.Value), 1), "mm/dd/yyyy")
        Crit2 = "<=" & Format(DateSerial(Year(.Value), Month(.Value) + 1, 0), "mm/dd/yyyy")
    End With
    Debug.Print Crit1, Crit2
    Selection.AutoFilter Field:=1, Criteria1:=Crit1, Operator:=xlAnd, Criteria2:=Crit2

J'avais mis au départ Crit1 et Crit2 en Date plutôt qu'en string.

Avec une date au 1/06/2010 pour Crit1.
Une une fois passé à Autofiler, la date se transformait en mm/dd/yyyy (controlée dans les champs de critères personnalisés de la feuille) alors que pour Crit2 elle passait au format dd/mm/yyyy attendu ?!😕

Aurais-tu une explication?
Les mystères d'Excel sont parfois déconcertants.🙄

A+

tototiti2008 · 5 Août 2010

Re : macro filtre prbm format date

Bonjour Hasco, Bonjour megno,

@Hasco
déjà la dernière fois j'avais pas tout compris, j'essaie encore et je te reviens mais c'est pas trés clair, c'est sûr...

macro filtre prbm format date

megno

Guest

Guest

Guest

megno

Guest

tototiti2008

XLDnaute Barbatruc

Guest

Guest

tototiti2008

XLDnaute Barbatruc

Discussions similaires

macro filtre prbm format date

megno

Guest

Guest

Guest

megno

Guest

tototiti2008

XLDnaute Barbatruc

Guest

Guest

tototiti2008

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency