Tri de tableau à 2 dimensions

cs_ElMagnifico Messages postés 22 Date d'inscription lundi 15 juillet 2002 Statut Membre Dernière intervention 10 septembre 2003 - 19 août 2002 à 09:47
cs_thitoune Messages postés 124 Date d'inscription mardi 19 février 2002 Statut Membre Dernière intervention 7 mars 2004 - 19 août 2002 à 16:46
Bonjour!

Voila j'ai un tableau dynamique de type String à deux dimensions et j'aimerais le trier dans l'ordre alphabétique de la première colonne (0)....Quelqu'un pourrait m'aider SVP???

Merci d'avance

1 réponse

cs_thitoune Messages postés 124 Date d'inscription mardi 19 février 2002 Statut Membre Dernière intervention 7 mars 2004 2
19 août 2002 à 16:46
Sub toto()
Dim tabl(4, 1) As String
Dim temp(1) As String

tabl(0, 0) = "rtoto"
tabl(0, 1) = "toto1"

tabl(1, 0) = "toto"
tabl(1, 1) = "1toto1"

tabl(2, 0) = "atoto"
tabl(2, 1) = "2toto1"

tabl(3, 0) = "ctoto"
tabl(3, 1) = "3toto1"

tabl(4, 0) = "utoto"
tabl(4, 1) = "4toto1"

For i = 0 To 4
For j = 0 To 4
If tabl(i, 0) < tabl(j, 0) Then
temp(0) = tabl(i, 0)
temp(1) = tabl(i, 1)

tabl(i, 0) = tabl(j, 0)
tabl(i, 1) = tabl(j, 1)

tabl(j, 0) = temp(0)
tabl(j, 1) = temp(1)
End If
Next j
Next i
End Sub
2
Rejoignez-nous