macro filtre inf sup

beberf · 13 Avril 2005

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 · 13 Avril 2005

Salut beberf,

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

A+

Thierry78

beberf · 13 Avril 2005

il ne veut pas . erreur

Thierry78 · 13 Avril 2005

et en mettant:

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

_Thierry · 13 Avril 2005

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:
    If Err = 13 Then
        MsgBox 'Veuiller saisir une Date Valide', vbCritical, 'Alert !!!'
        If WS.FilterMode = True Then WS.ShowAllData
    Else
        MsgBox 'Erreur non Gérée ' & Err.num & ' ' & Err.Description
    End If
End Sub

Bon Après Midi
@+Thierry

beberf · 13 Avril 2005

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 · 13 Avril 2005

Super ton code thierry
ça fonctionne trp bien

encore merci aux thierry de ce forum

macro filtre inf sup

beberf

Guest

Thierry78

XLDnaute Nouveau

beberf

Guest

Thierry78

XLDnaute Nouveau

_Thierry

XLDnaute Barbatruc

beberf

Guest

beberf

Guest

Discussions similaires