Trie des colonnes

Version imprimable

Trie des colonnes

Bonjour,

Est-il possible de trier deux plages en même temps?

Je recherche a modifier mon code c'est à dire j'aimerais trier les colonnes "A2:F101 et K2:K101" avec ce code mais j'ai un message d'erreur "Argument ou Appel de procédure incorrect "
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub CommandButton2_Click() 'trie et Classement Range("A2:F101,K2:K101").Select Application.CutCopyMode = False ActiveWorkbook.Worksheets("Score").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Score").Sort.SortFields.Add Key:=Range("A2"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Score").Sort .SetRange Range("A2:F101,K2:K101") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With 'sélectionne une autre cellule Range("M14").Select End Sub
J'avoue, ne pas savoir comment faire ?

Je vous remercie de votre aide.

Cordialement

Max

22/04/2012, 11h34
kiki29

Salut, pour le fun voir ici

Bonjour,

Copie la plage G2:J101 dans un tableau, trie la plage A2:K101 et recopie la table sauvegardée à sa place initiale :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Dim Tabl
    With ActiveWorkbook.Worksheets("Score")
        Tabl = Application.Transpose(Application.Transpose(.[G2:J101]))
    End With
'trie et Classement
  Range("A2:F101,K2:K101").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Score").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Score").Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Score").Sort
        .SetRange Range("A2:K101")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    With ActiveWorkbook.Worksheets("Score")
        .[G2:J101] = Tabl
    End With
     'sélectionne une autre cellule
    Range("M14").Select

22/04/2012, 15h39
maxval18

Bonjour Daniel

Je te remercie sa marche nickel

Bonne journée

Max