je sais que cela ne ce fait pas mais j aurai besoin d'une reponse svp. je suis bloquer pour le suite de mon appli...
alors je repost merci......
**************************************************
Hello tous le monde
Je me trouve confronter a un probleme que je ne sais resoudre.
je saisie dans une imputbox des dates pour des valeurs de tri d'un tableau.
mon probleme c que excel convertis mes dates du format dd-mm-aa au format mm-dd-aa
du coup mes tri sont faux
comment resoudre c probleme SVP
merci
Shintra
Cf code
Code:
Sub Extraction()
On Error Resume Next
Dim d_analyse As Date
Sheets('feuil1').Select
d_analyse = InputBox('Indiquer la date d'analyse souhaité ', 'Indiquer la date d'analyse souhaité ', 'jj/mm/aa')
Selection.NumberFormat = 'd-mmm-yy'
Selection.AutoFilter Field:=14, Criteria1:='>=' & d_analyse, Operator:=xlAnd
Selection.AutoFilter Field:=13, Criteria1:='<=' & d_analyse, Operator:=xlAnd
End Sub
j'ai mis un fichier en exemple pour plus de clairete
mais je souvent des problemes pour telecharger les fichiers modifiés donc si vous avez une idee svp, merci de mettre le code dans le fil non pas le fichier modifé [file name=exemple_20050811200154.zip size=13244]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20050811200154.zip[/file]
alors je repost merci......
**************************************************
Hello tous le monde
Je me trouve confronter a un probleme que je ne sais resoudre.
je saisie dans une imputbox des dates pour des valeurs de tri d'un tableau.
mon probleme c que excel convertis mes dates du format dd-mm-aa au format mm-dd-aa
du coup mes tri sont faux
comment resoudre c probleme SVP
merci
Shintra
Cf code
Code:
Sub Extraction()
On Error Resume Next
Dim d_analyse As Date
Sheets('feuil1').Select
d_analyse = InputBox('Indiquer la date d'analyse souhaité ', 'Indiquer la date d'analyse souhaité ', 'jj/mm/aa')
Selection.NumberFormat = 'd-mmm-yy'
Selection.AutoFilter Field:=14, Criteria1:='>=' & d_analyse, Operator:=xlAnd
Selection.AutoFilter Field:=13, Criteria1:='<=' & d_analyse, Operator:=xlAnd
End Sub
j'ai mis un fichier en exemple pour plus de clairete
mais je souvent des problemes pour telecharger les fichiers modifiés donc si vous avez une idee svp, merci de mettre le code dans le fil non pas le fichier modifé [file name=exemple_20050811200154.zip size=13244]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20050811200154.zip[/file]