Pb VBA: Filtrer une date avec InputBox & AutoFilter Résolu

Question

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!




Configuration: Macintosh / Safari 13.0.5

f894009 · Answer

Bonjour,

A quoi sert la variable filtre si vous faites un filtre avec DDate?

KCE.N · Answer

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

KCE.N · Answer

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 !

KCE.N · Answer

Oui en effet! C'est bon j'ai résolu le problème, merci!

Pb VBA: Filtrer une date avec InputBox & AutoFilter

4 réponses

Discussions similaires

Newsletters