trier listbox

[jean-paul]

Bonsoir
J'ai trouvé sur le forum ce code :
Dim i As Byte, j As Byte
Dim temp As String
With ComboBox1
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
If .List(i) .list(y,2) then
Temp=.list(y,2)
.list(y,2)=.list(x,2)
.list(x,2)=temp
........................idem pour les autres colonnes
end if
next
next
end with


D'avance merci

 

[jean-paul]

Ne tenez pas compte de ce post
Il est tronqué
Je voulais dire que Vba me renvoie un code erreur 70 lors de l'entrée dans la boucle if
Il refuse de faire.list(y,2)=.list(x,2)

 

[Luki]

Bonsoir jean-paul,

Quelle est ta question?
:ermm:

 

[jean-paul]

listbox à quatre colonnes
je voudrais faire trier ma liste en fonction de la colonne 1 ou 2 ou 3 ou 4.
Question : comment faire pour créer un tableau multi-dimension afin de monter en mémoire ma listbox et faire le tri alpha sur une des colonnes.

Est-ce assez clair

 

[Charly2]

Bonsoir Jean-Paul et Luki 🙂

Tu es certain du code ? Je trouve étrange que l'on mélange des couples (i,j) et (x,y), d'autant que i et j sont déclarés mais pas x et y...

Par ailleurs, je ne vois pas trop l'intérêt de tranférer un tableau dans un autre pour faire un tri 😱

Dim i%, j%
Dim Temp$
'
  With ComboBox1
    For i = 0 To .ListCount - 2
      For j = i + 1 To .ListCount - 1
        If .List(i, 2) › .List(j, 2) Then
          ' bien mettre i et j au lieu de x et y
          Temp = .List(j, 2)
          .List(j, 2) = .List(i, 2)
          .List(i, 2) = Temp
          ' idem pour les autres colonnes...
        End If
      Next j
    Next i
  End With

Reviens sur ce fil si ton problème persiste 😉

A+

Message édité par: Charly2, à: 11/02/2006 01:09

 

[jean-paul]

Merci pour ta réponse

J'ai repris le problème depuis le début

c.a.d.

reconstrution de ma listebox en faisant une recherche avec .find en fonction de mon critère et inserion dans la listebox.

ainsi ma listebox se présente sous la forme voulue

merci pour le coup de main