Récupération de la valeur la plus grande entre plusieurs champs

Le code qui suit permet d'effectuer une comparaison entre plusieurs champs et de retourner la valeur la plus grande.

L'argument "LesVariables()" est une variable tableaux dans laquelle figureront toutes les valeurs à comparer.

Function VariableMax(ParamArray LesVariables() As Variant)

'Retourne la variable la plus élévée
Dim intVariable As Integer
Dim varMax

For intVariable = 0 To UBound(LesVariables())
     If LesVariables(intVariable) > varMax Then varMax = LesVariables(intVariable)
Next intVariable

VariableMax = varMax

End Function

Cette fonction pourra être utiliser directement dans du code ou alors elle pourra être appelée dans une requête de la façon suivante :

SELECT Champ1, VariableMax([Val1], [Val2], [Val3]) AS Resultat
FROM LaTable;

Auteur : Jessy SEMPERE