Pb VBA: Filtrer une date avec InputBox & AutoFilter
Résolu
Bonjour,
Je suis en train de travailler sur une base de données, et je souhaite à l'aide d'un Input Box dans lequel on rentre une donnée, ici une date, afficher toutes les lignes correspondantes.
Mon code ne marche pas:
Private Sub CommandButton2_Click()
Sheets("BDD").Activate
Dim filtre As String
filtre = InputBox("Date à filtrer:", "FILTRE", "jj/mm/aaaa")
ActiveSheet.Range("c4:y9000").AutoFilter Field:=3, Criteria2:="*" & DDate & "*"
End Sub
Je sais qu'il s'agit d'un problème de format mais je ne sais pas comment régler cela..
Pouvez-vous m'éclairer stp?
Merci!
Je suis en train de travailler sur une base de données, et je souhaite à l'aide d'un Input Box dans lequel on rentre une donnée, ici une date, afficher toutes les lignes correspondantes.
Mon code ne marche pas:
Private Sub CommandButton2_Click()
Sheets("BDD").Activate
Dim filtre As String
filtre = InputBox("Date à filtrer:", "FILTRE", "jj/mm/aaaa")
ActiveSheet.Range("c4:y9000").AutoFilter Field:=3, Criteria2:="*" & DDate & "*"
End Sub
Je sais qu'il s'agit d'un problème de format mais je ne sais pas comment régler cela..
Pouvez-vous m'éclairer stp?
Merci!
Configuration: Macintosh / Safari 13.0.5
4 réponses
-
Bonjour,
A quoi sert la variable filtre si vous faites un filtre avec DDate? -
Bonjour,
J'ai essayé tellement de combinaisons différentes que j'ai oublié de remettre le code correctement effectivement initialement c'est:
Private Sub CommandButton2_Click()
Sheets("BDD").Activate
Dim filtre As String
filtre = InputBox("Date à filtrer:", "FILTRE", "jj/mm/aaaa")
ActiveSheet.Range("c4:y9000").AutoFilter Field:=3, Criteria2:="*" & filtre & "*"
End Sub -
Non, cela ne marche pas....
Sachant que j'utilise également ce code pour filtrer en fonction d'autres informations (Marché, type de prestation...) et que pour ces données là il n'y a aucun problème mais pour la date ça ne fonctionne pas ! -
Oui en effet! C'est bon j'ai résolu le problème, merci!
