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

chris6999 · 28 Avril 2018

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 · 29 Avril 2018

Re Jean Marie

@Staple1600

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

Staple1600 · 29 Avril 2018

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

VB:

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

Staple1600 · 29 Avril 2018

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)

VB:

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... · 29 Avril 2018

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 · 30 Avril 2018

Staple1600 à dit:
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)

VB:

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 · 30 Avril 2018

Si... à dit:
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 · 30 Avril 2018

Staple1600 à dit:
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)

VB:

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 · 30 Avril 2018

Lone-wolf à dit:
Re

Et comme ceci

VB:

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... · 30 Avril 2018

Re

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

si tu veux saisir la date:

VB:

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... · 2 Mai 2018

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

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

chris6999

XLDnaute Impliqué

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

chris6999

XLDnaute Impliqué

chris6999

XLDnaute Impliqué

chris6999

XLDnaute Impliqué

chris6999

XLDnaute Impliqué

Si...

XLDnaute Barbatruc

Pièces jointes

Si...

XLDnaute Barbatruc

Pièces jointes

Discussions similaires