Soyez le premier à donner votre avis sur cette source.
Snippet vu 15 754 fois - Téléchargée 43 fois
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
23 avril 2007 à 13:44
Ce que je trouve regrettable là dedans, c'est la personne qui t'as mis 10 sans regarder le tout :s.
Amicalement,
Tmcuh
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.