[E-03] Comment filtrer de date à date en vba?

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:

---

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:

---

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

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

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:

---

Dim dateDébut As Long, dateFin As Long

---

Ensuite je mettais par exemple pour le mois de Janvier:

Code:

---

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:

---

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:

---

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

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

Déclaration des variables:

Code:

---

Dim dateDébut As Date, dateFin As Date

---

Définition des variables:

Code:

---

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

---

Avec DayInMonth comme suit:

Code:

---

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:

---

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?

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

Code:

---

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