Discussion :

[Jay-P]

Bonjour,

Le code suivant, sensé trier une feuille excel par rapport aux colonnes C et A, ne fonctionne pas de façon satisfaisante : le tri ne s'effectue qu'en partie, jusqu'à la ligne 10000 et quelques.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    ActiveWorkbook.Worksheets("Jour").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Jour").Sort.SortFields.Add Key:=Range("C3:C" & Range("C65536").End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Jour").Sort.SortFields.Add Key:=Range("A3:A" & Range("A65536").End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Jour").Sort
        .SetRange Range("A3:AA" & Range("AA65536").End(xlUp).Row)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Quelqu'un a-t-il une explication, une solution alternative?
Merci d'avance