filtre automatique sur la date

[amad]

Bonjour,
j'ai un pb au niveau de mon code qui doit me filtrer des dates
j'ai 1bouton qui filtre suivant une colonne et sur la colonne il y a des dates et ça ne marche pas. je crois que c'est un pb de format mais je sais pas comment formater mon textbox
voici mon code:
Private Sub TextBox1_Change()
Selection.AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Text & "*", Operator:=xlAnd
End Sub
ci joint mon fichier
Merci 🙂

 

[youky(BJ)]

Re : filtre automatique sur la date

Bienvenu au forum Amad,
Ceci doit faire l'affaire . . . .
Bruno

Private Sub TextBox1_Change()
If Len(TextBox1) <> 10 Then Feuil1.AutoFilterMode = False: Exit Sub
If Not IsDate(TextBox1) Then Exit Sub
Selection.AutoFilter Field:=1, Criteria1:=CDate(TextBox1.Text)
End Sub

 

[amad]

Re : filtre automatique sur la date

J'ai pas eu le tps de replonger dans le code je vais le tester
Merci 🙂