[XL-2010] Criteria2 des filtres automatiques sur Date

[grpm]

Bonjour,
J'ai un probleme avec un filtre automatique sur une date;

Soit une feuille "Feuil1" contenant en colonne "A" des dates (années 2010 et 2011)
Poser un filtre automatique.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function Essai()
    Dim oFilter As Filter
 
   'libere les filtres
    Sheets("Feuil1").ShowAllData   
 
    'Filtre  les lignes dont l'année est 2010 (la date doit etre au format "mm/jj/aaaa"
    Sheets("Feuil1").Range("A2:E31").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(0, "10/02/2010")    
 
    'Recupere  les  proprietes du filtre posé
    Set oFilter = Sheets("Feuil1").AutoFilter.Filters(1)
 
    STOP
End Function

Executer la fonction qui s'arrete au STOP
Vérifier que la feuille a bien été filtrée sur l'année 2010
Ouvrir la fenetre des variables locales
Voir les valeurs de oFilter :
oFilter.On = Vrai ---> OK
oFilter.Operator = xlFilterValues ---> OK
oFilter.Criteria1 = <Erreur définie par l'application ou par l'objet> ---> Pourquoi pas
oFilter.Criteria2 = <Erreur définie par l'application ou par l'objet> ---> pas d'accord car on devrait obtenir le tableau spécifié précédemment, c.a.d Array(0, "10/02/2010")

Si quelqu'un connait la solution à ce problème...
Merci