Re : filtrer en fonction des dates entrées dans une textbox
Bonjour à tous
Un petit exemple avec l'emploi du filtre automatique
Pré-requis pour tester:
Insérer Un Userform (avec dexu TextBox (nommés TextBox1 et TextBox2) et un CommandButton1 dans un classeur vierge.
et coller dans le VBA de l'userform les codes suivants:
Code VBA:
Private Sub CommandButton1_Click()
Dim DD&, DF&
DD = CLng(DateValue(TextBox1) * 1): DF = CLng(DateValue(TextBox2) * 1)
[A1:A47].AutoFilter Field:=1, Criteria1:=">" & DD, Operator:=xlAnd, Criteria2:=">" & DF
End Sub
Code VBA:
Private Sub UserForm_Initialize()
'ici ce code ne sert qu'à crééer les données pour tester
Range("A1") = "TEST"
Range("A2") = "1/1/2013"
Range("A2").DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=1, Stop:=41320, Trend:=False
TextBox1 = "01/01/2013"
TextBox2 = "31/01/2013"
' A NE PAS UTILISER DANS LE CLASSEUR ORIGINAL
End Sub
PS: En cas d'utilisation in situ, il faudra adapter notamment la plage de cellules où appliquer le filtre