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
-------------------------------
Réponse au message :
-------------------------------
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
|