Pb de filtre sur Date
Mik-L
Messages postés
20
Date d'inscription
Statut
Membre
Dernière intervention
-
Mik-L Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
Mik-L Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je n'arrive pas à filtrer sur une colonne contenant des dates. Mon code est :
If ActiveSheet.Name = "Planning" Then
ActiveSheet.Range("A5").AutoFilter Field:=6, Criteria1:=Date
Lorsque je lance ce genre de code rien ne se passe.
J'ai fait un test :
If ActiveSheet.Range("F7").Value = "06/06/2014" Then
MsgBox "Ok"
Else
MsgBox "KO"
End If
Le résultat du test est "Ok"
et donc même en mettant :
If ActiveSheet.Name = "Planning" Then
ActiveSheet.Range("A5").AutoFilter Field:=6, Criteria1:="06/06/2014"
ou bien
If ActiveSheet.Name = "Planning" Then
ActiveSheet.Range("A5").AutoFilter Field:=6, Criteria1:="06/06/2014 00:00:00"
Rien ne se passe.
Pouvez-vous m'aider sur le sujet ?
Merci d'avance.
Je n'arrive pas à filtrer sur une colonne contenant des dates. Mon code est :
If ActiveSheet.Name = "Planning" Then
ActiveSheet.Range("A5").AutoFilter Field:=6, Criteria1:=Date
Lorsque je lance ce genre de code rien ne se passe.
J'ai fait un test :
If ActiveSheet.Range("F7").Value = "06/06/2014" Then
MsgBox "Ok"
Else
MsgBox "KO"
End If
Le résultat du test est "Ok"
et donc même en mettant :
If ActiveSheet.Name = "Planning" Then
ActiveSheet.Range("A5").AutoFilter Field:=6, Criteria1:="06/06/2014"
ou bien
If ActiveSheet.Name = "Planning" Then
ActiveSheet.Range("A5").AutoFilter Field:=6, Criteria1:="06/06/2014 00:00:00"
Rien ne se passe.
Pouvez-vous m'aider sur le sujet ?
Merci d'avance.
A voir également:
- Pb de filtre sur Date
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Filtre whatsapp - Accueil - Messagerie instantanée
- Filtre teams - Accueil - Visio
- Airpods 3 date de sortie - Guide
- Office 2024 date de sortie - Accueil - Bureautique
5 réponses
Bonjour f894009,
Merci pour ta réponse cependant en essayant ta fornule comme ceci :
If ActiveSheet.Name = "Planning" Then
ActiveSheet.Range("A5:A3050").AutoFilter Field:=6, Criteria1:="=" & CDate(Date)
Rien ne se passe je filtre dans le vent :/
Et je n'arrive pas à réellement savoir d'où provient le problème !
Michael
Merci pour ta réponse cependant en essayant ta fornule comme ceci :
If ActiveSheet.Name = "Planning" Then
ActiveSheet.Range("A5:A3050").AutoFilter Field:=6, Criteria1:="=" & CDate(Date)
Rien ne se passe je filtre dans le vent :/
Et je n'arrive pas à réellement savoir d'où provient le problème !
Michael
Bonjour,
Le filtre doit se faire sur une plage de cellules et pour les dates, petite astuce
ex: ActiveSheet.Range("A5:F20").AutoFilter Field:=6, Criteria1:="=" & CDate(Date)
A+
Le filtre doit se faire sur une plage de cellules et pour les dates, petite astuce
ex: ActiveSheet.Range("A5:F20").AutoFilter Field:=6, Criteria1:="=" & CDate(Date)
A+
Bonjour,
Ben tout a fait normal, vu que vous filtrez que sur une seule colonne, il faut mettre:
Dans mon exemple, il y a 6 colonnes et le filtre est sur la sixieme d'ou: Field:=6
Ben tout a fait normal, vu que vous filtrez que sur une seule colonne, il faut mettre:
ActiveSheet.Range("A5:A3050").AutoFilter Field:=1, Criteria1:="=" & CDate(Date)
Dans mon exemple, il y a 6 colonnes et le filtre est sur la sixieme d'ou: Field:=6
Bonjour,
J'ai trouvé d'où provenait le problème.
Les dates sur la feuille excel était écrite en date longue "lundi 2 juin 2014" en les faisant passer en date courte "02/06/2014" mon filtre a fonctionné ;)
Mais j'aimerai garder l'affichage en date longue sur la feuille excel
comment dois-je écrire mon code afin que la correspondance se fasse ?
Merci d'avance.
J'ai trouvé d'où provenait le problème.
Les dates sur la feuille excel était écrite en date longue "lundi 2 juin 2014" en les faisant passer en date courte "02/06/2014" mon filtre a fonctionné ;)
Mais j'aimerai garder l'affichage en date longue sur la feuille excel
comment dois-je écrire mon code afin que la correspondance se fasse ?
Merci d'avance.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
en faite je m'auto répond lol mais je vous fait partager en même tps la solution à mon problème.
Pour avoir un filtre qui fonctionne sur des dates longues il suffit d'écrire :
If ActiveSheet.Name = "Planning" Then
ActiveSheet.Range("A5").AutoFilter Field:=6, Criteria1:=Format(Date, "Long Date")
Le filtre fonctionne parfaitement.
Enjoy
Michael
en faite je m'auto répond lol mais je vous fait partager en même tps la solution à mon problème.
Pour avoir un filtre qui fonctionne sur des dates longues il suffit d'écrire :
If ActiveSheet.Name = "Planning" Then
ActiveSheet.Range("A5").AutoFilter Field:=6, Criteria1:=Format(Date, "Long Date")
Le filtre fonctionne parfaitement.
Enjoy
Michael
