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

Signaler
-
 KCE.N -
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

4 réponses

Messages postés
15335
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 septembre 2020
1 353
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
Messages postés
15335
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 septembre 2020
1 353
Re,
Tout a fait Thierry, mais c'est ok ou pas?
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 !
Messages postés
15335
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 septembre 2020
1 353
Re,

Si dans votre colonne Date, ce sont des dates, la variable filtre etant une chaine de caractères evident que ca marche pas.
Oui en effet! C'est bon j'ai résolu le problème, merci!