Discussion :

[Arzawe]

Bonjour,

Je chercher à trier une table Excel depuis Access. J'arrive bien à faire le tri sur un champ, mais il faudrait le faire sur 3.

Voici ce que j'ai écrit :

Code :

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

1
2
3
4
5
6
 
With xlSheet.range("A7:T42")
    .Sort xlSheet.Columns("A"), xlAscending
    .Sort xlSheet.Columns("B"), xlAscending
    .Sort xlSheet.Columns("E"), xlAscending
End With

Mais il me fait les trois tris les uns après les autres, indépendemment. Moi je voudrais que ce soit simultané, et que la colonne A reste triée.

Merci d'avance de votre aide

[Jean-Philippe André]

salut,
voici le code que me génère le macrorecorder sous Excel,
en principe tu dois pouvoir l'appliquer à Access.

Code :

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

1
2
3
4
5
6
Columns("A7:T42").Select
    Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Key2:=Range("B7") _
        , Order2:=xlAscending, Key3:=Range("E7"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal

[Arzawe]

J'ai bien essayé, mais là l'ordi m'insulte, genre : Erreur d'exécution 1004, La méthode Sort de la classe Range a échoué.

Voici le code que j'ai entré :

Code :

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

1
2
3
4
5
6
7
 
xlSheet.range("A7:T42").Select
    Selection.Sort Key1:=range("A7"), Order1:=xlAscending, Key2:=range("B7") _
        , Order2:=xlAscending, Key3:=range("E7"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal

Le pire, c'est que pour une autre table dans un autre code, cela fonctionne. Ca me rend un peu
J'y suis depuis ce matin, mais j'ai bon espoir...