Date et tri automatique

**Belegeorn** · 27/07/2007, 10h44

Bonjour a tous
j'essaie de récupérer les données d'un tableau en fonction d'un plage de date dans une colone. Je souhaite récuperer les lignes concernées par le mois en cours via un tri automatique
J'utilise pour ca le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim dateactu As Date, datesuivante As Date
dateactu = Format(Date, "dd/mm/yyyy")
datesuivante = Format(Date + 31, "dd/mm/yyyy")
MsgBox Format(DateSerial(Year(datesuivante), Month(datesuivante), 1), "dd/mm/yyyy")
    Sheets("liv.mois").Activate
    Selection.AutoFilter Field:=14, Criteria1:=">=" & Format(DateSerial(Year(dateactu), Month(dateactu), 1), "dd/mm/yyyy"), Operator:= _
        xlAnd, Criteria2:="<=" & Format(DateSerial(Year(datesuivante), Month(datesuivante), 1), "dd/mm/yyyy")
    Range("A:B,K:L,N:O,P:P,AD:AD,AK:AK").Select
    Selection.Copy

En ayant un peu vadrouillé sur le forum, j'ai essayé d'assurer mes arrieres en formatant la date comme je le voulais et le résultat que j'obtiens en affichant les dates via une MsgBox est bon

sauf que quand je regarde les criteres de mon tri automatique je m'aperçois que les dates sont passées en format anglais/américain et qu'il me sort donc uniquement les lignes entre le 7 et le 8 janvier au lieu du 1 juillet au 1 aout...

Vous voyez une raison particuliere a ca ?
Merci d'avance

**COCONUT2** · 27/07/2007, 10h59

As tu cherché s'il existait une instruction du type "date locale" qui serait similaire à un formula local.

Une autre solution consiste à passer le format de date en numérique et à les traiter comme des nombres! Le format n'interviendra plus!

Vaoir aussi cette question récente:
http://www.developpez.net/forums/sho...77#post2344077

**Belegeorn** · 27/07/2007, 11h16

J'étais déja tombé sur cette discussion (tres récente effectivement vu qu'elle date d'hier)
par rapport au format de date local, ctrl+; me donne bien une date dans le format qui m'intéresse

quant a convertir les dates en nombre, pourquoi pas, je vais tenter ca et je vous tiens au courant