Trier un tableau à deux dimensions

[Invité Patrick]

Après de longues recherches sur Internet, j'ai rien trouvé de satisfaisant pout trier un tableau de variants à deux dimensions sur une colone comme critère de tri...

[winfield]

Effectivement, c'est une des faiblesses de vba autocad, il n'existe pas de fonction prête à l'emploi. Il faut le coder soi-même.

Différentes technique ci-dessous :

http://faq.vb.free.fr/index.php?question=151

[sechanbask]

pour list et combobox, j'utilise ça et je pense que c'est applicable aux tableaux:

'ComboBox1.List = ListSort(ComboBox1.List)
'listBox1.List = ListSort(listBox1.List)

Function ORDRECR(liSte)
'trie par ordre alphabétique croissant les données d'une list ou combo
Dim First As Integer, Last As Integer

Dim i As Integer, j As Integer
Dim Temp

First = LBound(liSte)
Last = UBound(liSte)
For i = First To Last - 1
For j = i + 1 To Last
If liSte(i, 0) > liSte(j, 0) Then
Temp = liSte(j, 0)
liSte(j, 0) = liSte(i, 0)
liSte(i, 0) = Temp
End If
Next j
Next i
ORDRECR = liSte
End Function