Tri avec Date format DD-MM-AA

SHINTRA

XLDnaute Occasionnel
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]
 

Pièces jointes

  • exemple_20050811200154.zip
    12.9 KB · Affichages: 13
B

bebere

Guest
bonsoir Shintra
j'ai du faire une fausse manoeuvre
Sub Extraction()
Dim d_analyse, f_analyse
On Error Resume Next
Sheets('feuil1').Select
'DEBUT_POSTION
d_analyse = InputBox('Indiquer la date d'analyse souhaité ', 'Indiquer la date d'analyse souhaité ', 'jj/mm/aa')
'format standard
d_analyse = Format(d_analyse, '0')
'FIN_POSITION
f_analyse = InputBox('Indiquer la date d'analyse souhaité ', 'Indiquer la date d'analyse souhaité ', 'jj/mm/aa')
'format standard
f_analyse = Format(f_analyse, '0')
'DEBUT_POSTION
Selection.AutoFilter Field:=13, Criteria1:='>=' & d_analyse, Operator:=xlAnd
'FIN_POSITION
Selection.AutoFilter Field:=14, Criteria1:='<=' & f_analyse, Operator:=xlAnd

End Sub

à bientôt



:)
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof