Filtre elabore entre 2 dates VBA

23test.xlsm (97.04 Ko)

Bonjour, je suis novice et malgré de nombreuses recherches, je n'ai pas trouvé la solution qui marche( je dois etre mauvais), pourtant ca a l'air simple: je veux lancer un filtre elaboré en VBA entre 2 dates, j'ai créé 2 textbox pour les dates et un bouton pour lancer le filtre. En manuel pas de soucis mais en VBA je n'obtiens pas de reponse. Je joins mon fichier, c'est tres petit. Si quelqu'un peut m'aider je lui devrais une reconnaissance éternelle (ou presque).

Private Sub TextBox1_AfterUpdate()

[f2] = ">=" & CDate(TextBox1)

End Sub

Private Sub TextBox2_AfterUpdate()

[g2] = "<=" & CDate(TextBox2)

End Sub

Private Sub CommandButton1_Click()

Range("feuil3!A4:C39").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

Range("Feuil3!f1:g2"), Unique:=False

End Sub

Private Sub UserForm_Click()

End Sub

Bonjour,

Une proposition

137test.zip (11.88 Ko)

A+

C'est super, merci beaucoup frangy

Bonjour,

Version légèrement différente (mais convergente sur le point principal)...

Après avoir réduit les sources d'erreurs, je commençais à me demander... mais Frangy a mis le doigt dessus !

Je me souviens maintenant avoir déjà rencontré ce problème sur un filtre automatique.

Cordialement.

134phileas-test.xlsm (104.52 Ko)

Merci beaucoup Mferrand pour ta reponse et pour avoir pris le temps de regarder

Rechercher des sujets similaires à "filtre elabore entre dates vba"