Pb VBA: Filtrer une date avec InputBox & AutoFilter

Résolu
KCE.N -  
 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

Réponse 1 / 4
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

A quoi sert la variable filtre si vous faites un filtre avec DDate?
0
Réponse 2 / 4
KCE.N
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Tout a fait Thierry, mais c'est ok ou pas?
0
Réponse 3 / 4
KCE.N
 
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 !
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse