Compléments pour Microsoft Access

http://access.fr.free.fr/

Fonction fSortArray (Equivalence)

Description 

Cette fonction permet de trier une variable tableau à une dimension par ordre croissant ou décroissant.

 
Synthaxe 

fSortArray (varArray, intOrder)

La synthaxe de la fonction fSortArray comprend les éléments suivants :

ElémentsDescription
varArrayVariable tableau que l'on souhaite trier.
IntOrderExpression numérique permettant de spécifier l'ordre de tri souhaité de la variable tableau (1 pour un ordre croissant et -1 pour un ordre décroissant).
 
Exemple 

La fonction pourra être appelée de cette manière :

Variable_Triee = fSortArray(Variable_a_Trier , 1)

Dans cet exemple, la variable sera triée par ordre croissant.

Ou si l'on souhaite garder la même variable tableau mais triée, il suffira de l'appeler de cette manière :

fSortArray Variable_a_Trier, 1

 
Code de la fonction 


Function fSortArray(varArray, intOrder%) As Variant
'** Trier une variable tableau par ordre croissant ou décroissant
'** Tri croissant intOrder = 1
'** Tri décroissant intOrder = -1

    Dim i As Long
    Dim j As Long

    For i = LBound(varArray) To UBound(varArray) - 1
        For j = i + 1 To UBound(varArray)
            If StrComp(varArray(i), varArray(j), vbTextCompare) = intOrder Then
                tmp = varArray(j)
                varArray(j) = varArray(i)
                varArray(i) = tmp
            End If
        Next j
    Next i
    fSortArray = varArray

End Function