Fonction tri tableau (simple)

Commenter

Contenu du snippet

Fonction de tri d'un tableau, il suffit de passer en paramètre le nom du tableau et la colonne sur laquelle on veut trier.
Ce tri marche pour les tableaux à 2 dimensions quelquesoient le nbre de lignes et de colonnes.
(pas de tri sur plusieurs colonnes, l'ordre peut être facilement ajouté)

Source / Exemple : 


<%
'--------------------------------------------------------------------------------
' 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)
%>

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.