Soyez le premier à donner votre avis sur cette source.
Snippet vu 29 629 fois - Téléchargée 33 fois
<% '-------------------------------------------------------------------------------- ' 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) %>
27 août 2007 à 08:57
Les fonctions natives sont là pour ça, alors pourquoi se casser la tête et "allourdir" un programme avec ta fonction...
it's my opinion.
21 oct. 2003 à 17:25
21 oct. 2003 à 11:48
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.