filtre automatique sur la date

amad · 10 Septembre 2014

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) · 10 Septembre 2014

Re : filtre automatique sur la date

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

Code:

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 · 26 Septembre 2014

Re : filtre automatique sur la date

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

filtre automatique sur la date

amad

XLDnaute Nouveau

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

amad

XLDnaute Nouveau

Discussions similaires

filtre automatique sur la date

amad

XLDnaute Nouveau

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

amad

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency