Discussion :

[moilou2]

Bonjour, je voudrais filtrer les données de ma feuille en filtrant sur la colonne A de date à date.

En fait j'ai 12 boutons correspondant chacun à un mois de l'année, donc sur le bouton janvier, il faut que sa filtre du 01/01/2009 au 31/01/2009, pour février, du 01/02/2009 au 28/02/2009...

Avec l'assistant, j'obtient le code suivant:

Code :

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

1
2
  Selection.AutoFilter Field:=1, Criteria1:=">=01/01/2009", Operator:=xlAnd _
        , Criteria2:="<01/02/2009"

Quand j'intègre sa dans mon code:

Code :

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

1
2
   ActiveSheet.Range("$A$5:$K$55555").AutoFilter Field:=1, Criteria1:=">=01/01/2009", Operator:=xlAnd _
        , Criteria2:="<01/02/2009"

Sa ne me filtre rien, comment cela se fait-il?

Ou comment je peux dire du 1er Janvier 2009 au 31 Janvier 2009?

Merci

[Krovax]

essaye de filtrer en comparant a DateSerial(année,mois,jour)
Je n'ai jamais essayé je ne sais pas si ca marchera

[moilou2]

Ba en fait avant je passé par de l'exadécimal ou je ne sais pas trop quoi...

Je définissait mes variables comme suit:

Code :

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

Dim dateDébut As Long, dateFin As Long

Ensuite je mettais par exemple pour le mois de Janvier:

Code :

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

1
2
dateDébut = 39814
dateFin = 39844

Sa correspondait aux dates mais je ne sais plus comment j'ai trouvé sa...

Et ensuite je faisais:

Code :

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

1
2
3
    ActiveSheet.Range("$A$5:$K$55555").AutoFilter _
        Field:=1, Criteria1:=">= " & dateDébut, _
        Operator:=xlAnd, Criteria2:="<=" & dateFin

J'étais persuadé que sa marché mais apparament sa na filtre pas comme je le souhaite, sa fonctionne pour le mois de janvier, mais pour les autres je ne sais pas sa ne marche pas je crois... enfin je n'ai pas la bonne plage de date filtrée....

Ce que je voudrais faire c'est pouvoir enregistrer mes variables en tant que date, et mettre directement dedans quelque chose du type:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim dateDébut As Date, dateFin As Date
 
dateDébut=01/01/2009
dateFin =31/01/2009
 
 
   ActiveSheet.Range("$A$5:$K$55555").AutoFilter _
        Field:=1, Criteria1:=">= " & dateDébut, _
        Operator:=xlAnd, Criteria2:="<=" & dateFin

Mais sa ne marche pas

[moilou2]

Bon j'ai procédé autrement mais sa ne fonctionne pas non plus...

Déclaration des variables:

Code :

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

Dim dateDébut As Date, dateFin As Date

Définition des variables:

Code :

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

1
2
dateDébut = DateSerial(LAnnée, LeMois, 1)
dateFin = DateSerial(LAnnée, LeMois, DaysInMonth(LeMois, LAnnee))

Avec DayInMonth comme suit:

Code :

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

1
2
3
4
5
Public Function DaysInMonth(ByVal nMonth As Integer, ByVal nYear As Integer) As Integer
 
    DaysInMonth = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(nYear, nMonth, 1))))
 
End Function

Après au niveau de mon filtre, je l'adapte comme suit:

Code :

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

1
2
Sheets("Historique des pannes").Range("A3:N3").AutoFilter
Sheets("Historique des pannes").Range("A3:N3").AutoFilter Field:=1, Criteria1:=">=" & Format(dateDébut, dd - mmmm - yy), Operator:=xlAnd, Criteria2:="<" & Format(dateFin, "dd-mmmm-yyyy")

Sachant que le format des dates à filtré est le suivant: 14-mars-01 (voir pièce jointe).

Qu'est ce qu'il faut encore que j'adapte pour que cela fonctionne?

[casefayere]

Bojour,
je viens de tester avec excel 2007 en mettant ça tout simplement :

Code :

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

1
2
3
Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$7").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "2/2/2009")

tout le mois de février apparait

bonne journée