Pb VBA: Filtrer une date avec InputBox & AutoFilter
Résolu
KCE.N
-
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!
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
A voir également:
- Pb VBA: Filtrer une date avec InputBox & AutoFilter
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Dépassement de capacité vba ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
4 réponses
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
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