Voici une source pour trier vos tableaux
Tout le code n'est pas de moi, je l'ai repris afin d'ajouter la sélection de la colonne (k)
Je sais qu'il existe d'autre source de ce genre sur aspfr mais je trouve que ce code est suffisamment bon pour en rajouter un de plus
A vous de voir...
Source / Exemple :
function arraysort(values(),k)
Dim i
Dim j
Dim smallest_value
Dim smallest_j
Dim min
Dim max
Dim temp
min = lbound(values,2)
max = ubound(values,2)
For i = min To max - 1
smallest_value = values(k,i)
smallest_j = i
For j = i + 1 To max
' See if values(j) is smaller. changed To strComp to work With strings.
if strComp(values(k,j),smallest_value,vbTextCompare) = -1 Then
' Save the new smallest value.
smallest_value = values(k,j)
smallest_j = j
End if
Next 'j
if smallest_j <> i Then
' Swap items i and smallest_j.
For intA = 0 To ubound(values,1)
temp = values(intA,smallest_j)
values(intA,smallest_j) = values(intA,i)
values(intA,i) = temp
Next 'intA
End if
Next 'i
arraysort = values
End function
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.