Tri de tableau à 2 dimensions

Signaler
Messages postés
22
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
10 septembre 2003
-
Messages postés
124
Date d'inscription
mardi 19 février 2002
Statut
Membre
Dernière intervention
7 mars 2004
-
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

Messages postés
124
Date d'inscription
mardi 19 février 2002
Statut
Membre
Dernière intervention
7 mars 2004
1
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
1