1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Function TriTableau2 (LeTableau,k)
Dim Ligne_Tampon
Dim Tableau_Tampon
' récupération des deux dimensions du tableau (lignes, colonnes)
MaxLig = UBound(LeTableau,1)
MaxCol = UBound(LeTableau,2)
i = 0
ReDim Ligne_Tampon(MaxCol)
ReDim Tableau_Tampon(MaxLig, MaxCol)
Do until i = MaxLig
' Chaque élément est comparé à celui qui lui est supérieur dans le classement
j=0
Do until j = MaxLig -1
If (LeTableau(j, k) < LeTableau((j + 1), k)) Then ' fair > pour un tri croissant
' l'élément J est plus important que l'élément J + 1 alors on les intervertit
for l = 0 to MaxCol
Ligne_Tampon(l) = LeTableau(j,l)
Tableau_Tampon(j,l) = LeTableau((j + 1),l)
Tableau_Tampon((j + 1),l) = Ligne_Tampon(l)
next
if j < MaxLig - 2 then
j=j+1
end if
Else
for l = 0 to MaxCol
Tableau_Tampon(j,l) = LeTableau(j,l)
Tableau_Tampon((j + 1),l) = LeTableau((j+1),l)
next
End If
j=j+1
Loop
i=i+1
LeTableau = Tableau_Tampon
Loop
TriTableau2 = Tableau_Tampon
End Function |
Partager