VBA MACRO FILTRE SUR DATE par Worksheet_Change(ByVal Target As Range)

[chris6999]

Bonjour

Je ne parviens pas à réaliser un filtre sur une valeur de type date.

Lorsque je saisis une date en B1 je souhaite faire un filtre sur cette date en fonction des valeurs de la colonne 1.

If Target.Address(0, 0) = "B1" Then
If Target.Value = "" Then
Range("$A$3:$B$3").AutoFilter Field:=1
Else
Range("$A$3:$B$3").AutoFilter Field:=1, Criteria1:="=" & Target.Value & "*"
End If
End If

Pouvez-vous me dire comment il faut s'y prendre.

Merci

 

[Lone-wolf]

Re Jean Marie

@Staple1600

Ok. Mais fonctionnera-t-elle sous Excel 2007??

 

[Staple1600]

Re

@Lone-wolf
Oui même sur Excel 97
Je voulais juste t'informer que passer par DateSerial n'est pas nécessaire.
Voir ce petit test

Sub a()
[A1] = Date
MsgBox CLng(DateSerial(Year([A1]), Month([A1]), Day([A1])))
MsgBox CLng([A1])
End Sub

 

[Staple1600]

Re

Test OK également sur XL2K3
(j'ai modifié encore un peu pour rester dans le thème de l'écriture "raccourcie" -> ByVal R as Range)

Private Sub Worksheet_Change(ByVal R As Range)
If R.Address = "$B$1" And R = "" Then
AutoFilterMode = 0
Else
[A3].AutoFilter 1, "<" & CLng(R)
End If
End Sub

@chris6999
Sur ton vrai fichier, où tu testes nos réponses:
•Le code est bien mis dans le code de la feuille ?
(pas dans un module Standard)
•Les dates en colonne A sont bien au format Date et B1 aussi ?
•Il y a des formules en colonne A ou ce sont des valeurs saisies?

 

[Si...]

Bon_jour

Mes versions (la seconde étant plus élaborée : filtre par année, trimestre, N° de semaine et autres).

edit : fichier supprimé (mauvaise version). Voir plus loin ...

 

[chris6999]

Re

Test OK également sur XL2K3
(j'ai modifié encore un peu pour rester dans le thème de l'écriture "raccourcie" -> ByVal R as Range)

Private Sub Worksheet_Change(ByVal R As Range)
If R.Address = "$B$1" And R = "" Then
AutoFilterMode = 0
Else
[A3].AutoFilter 1, "<" & CLng(R)
End If
End Sub

@chris6999
Sur ton vrai fichier, où tu testes nos réponses:
•Le code est bien mis dans le code de la feuille ?
(pas dans un module Standard)
•Les dates en colonne A sont bien au format Date et B1 aussi ?
•Il y a des formules en colonne A ou ce sont des valeurs saisies?

Bonjour

Oui bien sûr le code est sur la feuille.
Il n'y a rien d'autre que des dates et le format est OK.
Aucun formule saisie.
Le pb je crois c'est que je souhaite filtrer sur la valeur saisie. Quand j'utilise le code proposé il fait remonter les dates inférieures à la date attendue.

Du coup j'ai borné comme suit avec un criteria2 et cela fonctionne nickel

Range("A3:B26").AutoFilter Field:=1, Criteria1:=">=" & CLng(R), Operator:=xlAnd, Criteria2:="<=" & CLng(R)

Merci encore à tous pour votre aide.

Bonne journée

 

[chris6999]

Bon_jour

Mes versions (la seconde étant plus élaborée : filtre par année, trimestre, N° de semaine et autres).

Bonjour SI

Ta proposition est un peu trop compliqué pour mon projet actuel. Par contre je la garde de coté car elle pourra tj me servir.

Merci encore
Cordialement

 

[chris6999]

Re

Test OK également sur XL2K3
(j'ai modifié encore un peu pour rester dans le thème de l'écriture "raccourcie" -> ByVal R as Range)

Private Sub Worksheet_Change(ByVal R As Range)
If R.Address = "$B$1" And R = "" Then
AutoFilterMode = 0
Else
[A3].AutoFilter 1, "<" & CLng(R)
End If
End Sub

@chris6999
Sur ton vrai fichier, où tu testes nos réponses:
•Le code est bien mis dans le code de la feuille ?
(pas dans un module Standard)
•Les dates en colonne A sont bien au format Date et B1 aussi ?
•Il y a des formules en colonne A ou ce sont des valeurs saisies?

 

[chris6999]

Re

Et comme ceci

Private Sub Worksheet_Change(ByVal R As Range)

    If R.Address = "$B$1" And R = "" Then
        Range("A3:B26").AutoFilter
    Else
        Range("A3:B26").AutoFilter Field:=1, Criteria1:="=" & Format(R.Value, "dd.mm.yyyy")
    End If
End Sub

Regarde la pièce jointe 1011166

Sinon prend au moins la version Excel 2010 LOL

Une dernière petite question qui me turlupine...
Comme je fais pour positionner ce code Private Sub Worksheet_Change(ByVal R As Range) alors que j'ai déjà qq chose du type
Private Sub Worksheet_Change(ByVal Target As Range)....
Car dans mon projet réel B1 n'est pas le seul critère de filtre porposé
...

 

[Si...]

Re

Bonjour SI
Ta proposition est un peu trop compliquée pour mon projet actuel.

si tu veux saisir la date:

Private Sub Worksheet_Change(ByVal R As Range)
  If R.Address = "$B$1" Then
  [A3:B3].AutoFilter
  If R <> "" Then [A3:B3].AutoFilter 1, "=" & R
  End If
 'pour un autre filtre
 If R.Address = "$C$1" Then
  [A3:B3].AutoFilter
  If R <> "" Then [A3:B3].AutoFilter 2, R
  End If
End Sub

Nota : dans cet exemple, les filtres sont indépendants.

 

[Si...]

Re

Merci, à ceux* qui ont téléchargé mon fichier (#13) de ne m'avoir pas signalé qu'il n'était pas fonctionnel au niveau du filtre des dates.

Je le remplace (ici) par la bonne version.

*vraiment pas sympas