Tri d'une liste multicolonnes

Bonjour,

j'essaie d'adapter ce tri destiné à une liste "mono colonne" à une liste "multi colonnes" (3 colonnes) et je n'y arrive pas..

Sub tri_Liste3()
Dim I As Integer
Dim temp
Dim Ok As Boolean
  With Usf_nouv.ListBox3
    If .ListCount < 2 Then Exit Sub
    Do
      Ok = True
      For I = 0 To .ListCount - 2
        If .List(I) > .List(I + 1) Then
          temp = .List(I)
          .List(I) = .List(I + 1)
          .List(I + 1) = temp
          Ok = False
        End If
      Next I
    Loop Until Ok = True
  End With
End Sub

J'aimerais trier en fonction de la 1e colonne.

Ça fonctionne, mais seulement la première colonne se trie.

Comment "lier" les col2 et 3 ?

Un petit coup de pouce serait le bienvenu ...

Merci d'avance

Bonjour,

à tester, ...

Sub tri_Liste3()
Dim I As Integer
Dim temp
Dim Ok As Boolean
  With Usf_nouv.ListBox3
    If .ListCount < 2 Then Exit Sub
    Do
      Ok = True
      For I = 0 To .ListCount - 2
        If .List(I) > .List(I + 1) Then
           for j=0 to 2

          temp = .List(I,j)
          .List(I,j) = .List(I + 1,j)
          .List(I + 1,j) = temp
          Ok = False
          next j
        End If
      Next I
    Loop Until Ok = True
  End With
End Sub

h2so4 a écrit :

Bonjour,

à tester, ...

Sub tri_Liste3()
Dim I As Integer
Dim temp
Dim Ok As Boolean
  With Usf_nouv.ListBox3
    If .ListCount < 2 Then Exit Sub
    Do
      Ok = True
      For I = 0 To .ListCount - 2
        If .List(I) > .List(I + 1) Then
           for j=0 to 2

          temp = .List(I,j)
          .List(I,j) = .List(I + 1,j)
          .List(I + 1,j) = temp
          Ok = False
          next j
        End If
      Next I
    Loop Until Ok = True
  End With
End Sub

Ça parait simple quand ça tombe tout cuit.... Mais j'y serais pas arrivé tout seul ....

Je le note car je suis sur que ça me resservira !

Merci beaucoup h2so4