FONCTION TRI TABLEAU (SIMPLE)

<%
'--------------------------------------------------------------------------------
' fonction de tri d'un tableau
' Permet renvoyer un tableau Trié issu du tableau transmis en paramêtre
' (Quelquesoient le nombre de lignes et de colonnes) et avec le N° de la colonne à trier k
'--------------------------------------------------------------------------------
Function TriTableau (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
     ' 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
TriTableau = Tableau_Tampon
End Function
%>
<%
' Appel de la fonction
TableauTrie = TriTableau (tableau_A_Trier, 1)
%>