AutoFilterMode et format de cellule

[Willy]

Bonsoir à toutes et à tous,

Je rencontre un problème de recherche de date avec la fonction
AutoFilterMode.
En clair :
la colonne E contient des dates, le format des cellules est le suivant : jj mmmm aaaa

mon userform contient un textbox permettant de saisir la date à rechercher.

mon problème est que aucune date n'est trouvée !

voici la procédure :

Private Sub CmdValider_Click()

Worksheets("STOCK").AutoFilterMode = False
'RECHERCHE PAR DATE DE PEREMPTION
Dim WB As Workbook
Dim WS As Worksheet
Dim Critere As String

Set WB = ThisWorkbook
With WB
Set WS = .Worksheets("STOCK")
End With

'Textbox de saisie de la date de peremption formaté
Critere = Format(DateDebut.Value, "dd mmmm yyyy")

'J'ai essayé divers format tel que "dddddd"; "jj mmmm aaaa", "dd mm yy "; etc....

If DateDebut.Value = "" Then

MsgBox "Veuillez saisir la date de peremption à rechercher !", , "RECHERCHE INVALIDE"

Else

If WS.AutoFilterMode Then
WS.AutoFilterMode = False
WS.Range("A1").AutoFilter 5, Critere
Else
WS.Range("A1").AutoFilter 5, Critere

CmdValider.Enabled = False
CmdNew.Enabled = True
End If
End If
End Sub

J'ai essayé divers format de date à appliquer au textbox,sans aucune amélioration. Ma feuille reste vide !!!

J'emploi également cette procédure (formatée pour du texte) pour effectuer la recherche avec le nom des produits et cela fonctionne parfaitement.

Existe t'il un format spécifique de date pour rechercher une date avec la fonction AutoFilter ?
j'oublie quelque chose ?

Merci de votre aide
bonne soirée
Willy

 

[Mytå]

salut willy

Pas sur de ma response mais as-tu essayer

dim critere As Date

??? Mytå

 

[Willy]

Bonsoir Mytå,
Ca c'est du rapide, une réponse en moins de 10 mn !!
Je viens d'essayer dim critere As Date et aucun changement, la recherche ne trouve toujours rien !!!
par contre cela me parait plus juste comme déclaration de variable
par rapport à dim critere As string
merci encore
je continue ma recherche ( c'est le cas de le dire , lol)
Willy