Discussion :

[maxval18]

Bonjour

Je me trouve devant un petit problème, très simple je pense mais bon, voilà, je n'arrive pas à trouver comment faire.

Je voudrais trier des colonne mais pas toutes je m'explique:

J'ai 13 colonnes, je voudrais trier les colonnes de "A à I" et de "L à M"
c'est il possible?

J'ai comme code pour trier de ""A5:J104"ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CommandButton4_Click()
Range("A5:J104").Select
    ActiveWindow.ScrollRow = 1
    Selection.Sort Key1:=Range("J5"), Order1:=xlDescending, Key2:=Range("I5") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
    Range("K5:K104").Select
    Selection.Font.ColorIndex = 3
    Range("B4").Select
    Dim Plage As Range, i&, Cell As Range, Rng As Range
 
  On Error Resume Next
  Set Plage = Range("I5:I104")
  If IsEmpty(Plage) Then Exit Sub
 
  Application.ScreenUpdating = False
 
  For Each Cell In Plage
    For i = 1 To Plage.Count
      Set Rng = Cell.Offset(i)
      If Rng <> "" And Rng = Cell Then
        Cell.Interior.ColorIndex = 39
        Rng.Interior.ColorIndex = 39
        Exit For
      End If
    Next i
  Next Cell
  'MsgBox "Vous avez des joueurs avec le même nombre de points", vbInformation, "  Attention !"
End Sub

Je vous remercie de votre aide

Cordialement

Max

[Daniel.C]

Bonjour,

Pas sûr d'avoir compris. Tri sur les colonnes M, L, I, H, G, F, E, D, C, B et A, ordre descendant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    With Sheets("Feuil1")
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("M1")
        .Sort.SortFields.Add Key:=Range("L1")
        .Sort.SortFields.Add Key:=Range("I1")
        .Sort.SortFields.Add Key:=Range("H1")
        .Sort.SortFields.Add Key:=Range("G1")
        .Sort.SortFields.Add Key:=Range("F1")
        .Sort.SortFields.Add Key:=Range("E1")
        .Sort.SortFields.Add Key:=Range("D1")
        .Sort.SortFields.Add Key:=Range("C1")
        .Sort.SortFields.Add Key:=Range("B1")
        .Sort.SortFields.Add Key:=Range("A1")
        With .Sort
            .SetRange Range("A1:M28")
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With

[maxval18]

Bonjour Daniel

En faite je veut trier deux plages en même temps.

A5 : I101 et L5 : M101

@+

Max

[SfJ5Rpw8]

Pas vraiment clair ... quand on parle de tri .. il y as la plage à trier mais aussi la clef de tri .. tu veux trier ces deux plages par rapport à quelles colonnes ?

[maxval18]

Bonjour bbil

Oui c'est vrai !

Trier ces deux plages par rapport à la colonne "C"

@+

Max

[SfJ5Rpw8]

et il y as quoi dans tes colonnes J et K que tu ne veux pas "trier" en même temps ?