Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

Table

Requête

Formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Automation

Equivalence

º Fonction fAddressOf
º Fonction fInStrRev
º Fonction fMonthName
º Fonction fReplace
º Fonction fRound

Fonction fSortArray
º Fonction fSplit

Tuto Access 2007

Base de données

Lettre d'information

Equivalence - Fonction fSortArray

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éments	Description
varArray	Variable tableau que l'on souhaite trier.
IntOrder	Expression 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