Tri par date erroné

Version imprimable

Tri par date erroné

Bonjour j'ai ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Application.EnableEvents = False
 
Range("C9:Q5000").Select
 
    ActiveWorkbook.Worksheets("Bilan").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Bilan").Sort.SortFields.Add Key:=Range("C9:C5000" _
       ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Bilan").Sort
        .SetRange Range("C8:Q5000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
        .Apply
    End With
Cells(2.1).Select
 
Application.EnableEvents = True

Sauf que pour trier des dates, c'est un résultat erroné ? Savez vous pourquoi ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Bilan")
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("C9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Sort.SetRange .Range("C8:Q5000")
    With .Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With

09/06/2012, 13h07
pilounet54

erroné

je ne comprend pas exemple l'année. 2011 apres 2012 apres 2011 j'ai un format date comme ceci 09/04/2011
toutes la colonne est au format date
toujours pas juste merci
09/06/2012, 13h12
Daranc

d’où viennent les données qui sont sur la feuille ?
il est possible que certaines dates soit du texte
pour vérifier la chose il faut sélectionner la colonne date et la mettre en format standard . les date apparaitron dand le style 38569 40852 enfin pour 2011 ça doit déjà être des nombre à 5 chiffres si il reste des dates en format standard écrite 1/02/2011 c'est du texte
09/06/2012, 14h42
pilounet54

date

encore merci pour les explications effectivement j'ai dans le format standard
41215
01/06/2012 les données viennent
soit à la main ,ou d' userform ou de dtpicker comment je fais svp pour uniformise et avoir mes dates dans l'ordre, et dans quel format il faut quelle soit pour que cela soit juste?
comment mettre en JMA automatiquement avant de faire le tri avec le code ci dessus
merci
09/06/2012, 22h04
Daranc

si les données viennent d'un textbox c'est effectivement du texte.il faut pousser le format de la valeur du textbox en date
essayes

Code:

valeur_date= CDate(TextBox1.Value)
10/06/2012, 18h42
pilounet54

j'ai contourné le probleme comme cela :macro/ donnees /convertir /jma /date apres je trie avec le code que j'ai donné
11/06/2012, 12h46
pilounet54

pilounet54 date

merci pour ce code! il fonctionne finalement je l'avais associer a un autre code mais a lui tout seul il repond completement a mon probleme merci encore :ccool: