macro filtre inf sup

[beberf]

Bonjour,

voici mon problème:
je voudrais faire un filtre sur la feuille 'planning' pour avoir seulement la période entre le 01/01/2005 et le 22/01/2005.

mais après avoir lancé la macro je vais voir dans le filtre et il me ramène les valeur x et y au lieu de 01/01/2005 et 22/01/2005.


Dim x
Dim y

Sheets('Planning').Select
x = InputBox('date début ex:01/01/2005')
y = InputBox('date début ex:22/01/2005')
Selection.AutoFilter Field:=2, Criteria1:='>=x', Operator:=xlAnd _
, Criteria2:='<=y'

si je mets

=x à la place de ='>=x' il me ramène bien 01/01/2005 mais =>x ne fonctionne pas.

merci d'avance pour vos réponse

 

[Thierry78]

Salut beberf,

Et si tu essayes de mettre le x en dehors des guillemets?

A+

Thierry78

 

[beberf]

il ne veut pas . erreur

 

[Thierry78]

et en mettant:

Selection.AutoFilter Field:=2, Criteria1:='>=' & x, Operator:=xlAnd _
, Criteria2:='<=' & y

 

[_Thierry]

Bonjour Thierry, Beberf, le Forum

Les dates sont toujours un Souci à gérer à travers VBA... Voici une Proposition avec gestion d'erreur :

Sub AutoFilterWithDate()
Dim WS As Worksheet
Dim x As Date
Dim y As Date

Set WS = Sheets('Planning')

On Error GoTo Out
x = CDate(InputBox('date Début ex:01/01/2005', 'Date From: ', '01/05/2005'))
y = CDate(InputBox('date Fin ex:22/01/2005', 'Date TO: ', '05/05/2005'))

WS.Range('A1').AutoFilter Field:=2, Criteria1:='>=' & Format(x, 'mm/dd/yy'), Operator:=xlAnd, Criteria2:='<=' & Format(y, 'mm/dd/yy')

Exit Sub

Out:
&nbsp; &nbsp; If Err = 13 Then
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox 'Veuiller saisir une Date Valide', vbCritical, 'Alert !!!'
&nbsp; &nbsp; &nbsp; &nbsp; If WS.FilterMode = True Then WS.ShowAllData
&nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox 'Erreur non Gérée ' & Err.num & ' ' & Err.Description
&nbsp; &nbsp; End If
End Sub

Bon Après Midi
@+Thierry

 

[beberf]

j'ai testé la solution de thierry78. Maintenant il me ramène bien les dates mais il ne valide pas le filtre.
Il efface toutes les dates. Si je rentre dans le filtre personnalisé et que je fais juste ok alors ça fonctionne.
il ne manque pas grand chose.

Je vais tester la solution de thierry

@+

 

[beberf]

Super ton code thierry
ça fonctionne trp bien

encore merci aux thierry de ce forum