critères de filtre

bonjour,

j'aimerai filtrer une colonne comportant des dates selon un mois choisi.

j'ai réussi à filtrer les dates par : 

Selection.AutoFilter field:=1, Criteria1:=TextBox1.Text

quelle est la syntaxe du Criteria1 pr filtrer un mois??

Merci pr votre aide, Achi!

fil VBA! (modifié)

salut PCPT,

Excuse moi mais j'ai pas compris!!

Achi!

 

ta demande concerne VBA, tu avais classé ton topic en VB6. j'ai modifié.

voir en haut de fenêtre : Vous êtes ici : ...................

++

---

Prenez un instant pour répondre à ce sondage svp

re,

ok merci! dsl!

Achi!

@+

Salut,

Je pense que le mieux est d'y aller avec >= au 1er du mois et < que le 1er du mois suivant (ou <= au dernier jour du mois)  si l'année est la même
Du genre
    Dim MoisàFiltrer As Integer
    Dim Début As Date, Fin As Date
   
    MoisàFiltrer = 9  ' à modifier au besoin
   
    Début = (DateSerial(Year(Date), MoisàFiltrer, 1))          'changer l'année au besoin
    Fin = (DateSerial(Year(Date), MoisàFiltrer + 1, 1)) - 1   'dernier jour du mois
   
    Selection.AutoFilter Field:=1, Criteria1:=">=" & Début, Operator:=xlAnd, _
        Criteria2:="<=" & Fin
  
Ce n'est jamais simple de travailler avec les dates... Il te faudra faire des tests.

MPi

salu MPI,

merci pour ta réponse, tu ne dois pas etre très loin, mais ca fait toute une jnée que je cherche mais ca ne fonctionne pas il ne reconnait apparement pas le format lors du filtre...

ca merdouille a ce niveau là!!

 Selection.AutoFilter Field:=1, Criteria1:=">=" & Début, Operator:=xlAnd, _
        Criteria2:="<=" & Fin

je suis complètment bloqué, j'arrive pas à trouver!!

Merci encore, @++ Achi... 

à l'aveuglette...


Selection.AutoFilter Field:=1, Criteria1:=">= #" & Début & "#", Operator:=xlAnd, Criteria2:="<= #"& Fin & "#"

---

Prenez un instant pour répondre à ce sondage svp

salu PCPT,

 

et bah non! , merci qd même!

je pense qu'il ne reconnait pas le format de la date de mon champs!!
car il filtre, mais rien!! il me dégage tt..

mon format de date est jj/mm/aa , mais c'est bizarre car mes variable Début et Fin st dimensionnées en tant que date!!!

je suis largué!!!! Achi...

Quand tu dis "mon format est jj/mm/aa
est-ce que tu veux dire ce qui est affiché ?
parce que si tu cliques sur une cellule, il se peut que ce que tu vois dans la barre de formule diffère...

Ici, mon format de date utilise le tiret comme séparateur.
Si je tapes dans une cellule 10 sept (sans tiret), puis ENTER
Je vois 10-sept inscrit dans la cellule (avec tiret)
et 2006-09-10 dans la barre de formule
et le format de cellule devient Personnalisé jj-mmm
Vachement convivial, non ?   |¬)

Et si je mets un filtre et que je vais dans Personnalisé, je vois le texte au format de la cellule, soit jj-mmm

Dans la case à côté, je mets =A1 avec format Date, j'obtiens 10-09-06 dans la cellule.
Dans la cellule à côté, j'écris 10-09-06 et j'obtiens 2010-09-06 (follement amusant)
De quoi virer su'l top comme qu'on dit...

J'ai donc réessayer avec une colonne au format jj-mmm (personnalisée)
et une autre au format Date selon ma configuration
et dans les 2 cas, la macro que je t'ai écrite fonctionne bien...

Le mieux, je pense, est que tu utilises la fenêtre espion de VBA et que tu mettes diférentes choses pour voir comment ça réagit dans ton ordi... Tu pourrais y mettre Début et Fin entre autres, et aussi Range("XY") dans lequel il y a une date et faire un arrêt sur le End Sub pour voir les valeurs générées.

MPi