Discussion :

[martinmacfly]

Bonjour à tous,

Existe-t-il en VBA une fonction donnant le minimum d'une série de valeurs, du genre Min(1,2,3) ? Je n'ai pas réussi à en trouver dans l'aide...

D'autre part, comme je n'en trouvais pas, j'ai essayé de m'en fabriquer une, mais elle ne marche pas. Voilà ce que j'ai fait (je n'ai pas besoin de comparer plus de 4 valeurs) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Function Min(ByVal Val1 As Single, ByVal Val2 As Single, Optional ByVal Val3 As Single, Optional ByVal Val4 As Single) As Variant
 
    'Renvoie le minimum de Val1, Val2, Val3 et Val4
 
    Dim Result As Single
    Result = Val1
    If Val2 < Result Then Result = Val2
    If Val3 <> Null And Val3 < Result Then Result = Val3
    If Val4 <> Null And Val4 < Result Then Result = Val4
    Min = Result
 
End Function

Pour Min(3,2,1), elle me renvoie 2. Je subodore donc que c'est ma syntaxe pour lui dire "S'il y a quelque chose dans Val3" qui est fausse, mais je n'ai pas trouvé la bonne (j'ai essayé avec <> Nothing et Not Val3.IsNull également). Quelqu'un connaîtrait-il la bonne manière d'écrire ça ?

Merci d'avance !

[jfontaine]

Bonjour,

Les formules excel sont utilisable en VBA via l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorksheetFunction

pour ton besoin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorksheetFunction.Min(Range("A1:A5"))

Bonne continuation

[martinmacfly]

Muchas gracias, c'est exactement ce qu'il me fallait. En plus, je pense que je vais pouvoir un peu utiliser les autres WorksheetFunctions... Merci !