* Bonjour, *

avec le code suivant je fait un tri alphbetique dans une listbox... malheureusement ce tri ne se fait que sur la première colonne de ma listbox...
c'est bien la colonne de référence pour le tri, mais le reste des colonnes ne suit pas...

Comment puis-je adapter ce code pour 6 colonnes... !?


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
  With ListBox1
    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
* Merci *