M
Membre supprimé 156683
Guest
Bonjour à tous,
Je réalise une Inputbox où la personne indique une date dont je me sers comme donnée pour filtrer automatiquement une colonne;
Sub()
K = InputBox("Date ? ", Format(Date, "dd/mm/yyyy"))
If K = "" Then Exit Sub
Sheets(1).Select
Selection.AutoFilter Field:=13, Criteria1:=">=" & CDate(K) & "", Operator:= _
xlAnd
End Sub
Le problème est que la date retournée (même si elle est au format dd/mm/yyyy)
apparait dans la boite de l'autofiltre au format mm/dd/yyyy lorsque dd est inférieur à 12.
C'est un problème connu, j'ai donc essayé plein de codes différents mais rien n'y fait (voir fichier joint).
D'ailleurs même si j'indique une date comme 24/05/2010, le filtre ne fonctionne pas.
J'aurais donc besoin d'un 2ème regard sur mon code SVP.
Merci d'avance.
M&m
Je réalise une Inputbox où la personne indique une date dont je me sers comme donnée pour filtrer automatiquement une colonne;
Sub()
K = InputBox("Date ? ", Format(Date, "dd/mm/yyyy"))
If K = "" Then Exit Sub
Sheets(1).Select
Selection.AutoFilter Field:=13, Criteria1:=">=" & CDate(K) & "", Operator:= _
xlAnd
End Sub
Le problème est que la date retournée (même si elle est au format dd/mm/yyyy)
apparait dans la boite de l'autofiltre au format mm/dd/yyyy lorsque dd est inférieur à 12.
C'est un problème connu, j'ai donc essayé plein de codes différents mais rien n'y fait (voir fichier joint).
D'ailleurs même si j'indique une date comme 24/05/2010, le filtre ne fonctionne pas.
J'aurais donc besoin d'un 2ème regard sur mon code SVP.
Merci d'avance.
M&m