TRI TABLEAU SUR UNE COLONNE DONNÉE EN QUELQUES LIGNES DE CODE (ARRAY SORT)

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