XL 2010 FILTRE SUR DATE EN VBA

[grotsblues]

Bonsoir le forum

Après plusieurs recherches sur les forums, j'ai trouvé ce code mais il ne fonctionne pas et je ne comprends pas pourquoi.
Le format de ma colonne est bon mais rien n'y fait.
Si une personne pouvait m'aider
Merci par avance
Ci_joint mon exemple

 

[mapomme]

Bonsoir à @grotsblues,

Essayez:

Sub FiltrerDate()
   On Error Resume Next
   ActiveSheet.Range("a1:c1").AutoFilter Field:=3, Criteria1:= _
        Format(CDate(InputBox("Saisir la date concernée")), "dd/mm/yyyy")
End Sub

Normalement, vous pouvez saisir des dates au type 01/04/2014 mais aussi 1/4/201 ou encore 1/01/14, ...

 

[grotsblues]

Bonsoir mapomme
Désolé mais ne fonctionne pas non plus

 

[grotsblues]

est ce les paramètres d'excel que je dois changer ?

 

[grotsblues]

ou comme je suis sous excel 2007

Merci pour vos retours

 

[Compte Supprimé 979]

Bonjour grotsblues

Tu te crois sur ton smartphone a envoyer des SMS ou des Messenger 🤔 🤣

Bravo 😱 👍

 

[grotsblues]

BONJOUR BRUNOM45
Content que cela vous fasse rire

 

[Gael]

BONJOUR BRUNOM45
Content que cela vous fasse rire

Bonjour à tous,

Grotsblues,

Essaye de supprimer simplement le 2ème critères:

, Operator:=xlAnd, Criteria2:=Format("mm/dd/yyyy")

La macro sera donc:

Sub Macro7()
ActiveSheet.Range("$A$1:$C$5").AutoFilter Field:=3, Criteria1:=InputBox("Saisir la date concernée")
End Sub

Gaël

 

[grotsblues]

Bonsoir Gael et merci pour votre aide
Mais toujours le même problème, le filtre est vide. Je ne comprends pas pourquoi.
Merci de votre aide

 

[ChTi160]

Bonsoir le fil
peut-être avec cette configuration !

Sub Macro7()
Dim Dte As Variant
Dte = Format(InputBox("Saisir la date concernée"), "mm/dd/yyyy")
If Not IsDate(Dte) Then Exit Sub
     ActiveSheet.Range("$A$1:$C$5").AutoFilter Field:=3, Criteria1:= _
        ">=" & Dte, Operator:=xlAnd, Criteria2:="<=" & Dte
End Sub

jean marie

 

[patricktoulon]

bonsoir
il faudrait déjà avant tout
savoir si c'est vraiment des dates dans la colonnes
ne pas confondre le string d'une date et une date
dans excel 01/01/2022 et 01/01/2022 peuvent avoir une valeur différentes
tout dépend du comment ces dates sont arrivées là

 

[grotsblues]

Bonsoir ChTi160
Génial ça fonctionne.
Merci beaucoup