Equivalent VBA de Min et Max

[marmotte18]

Bonjour,

Je cherche à prendre la plus petite valeur d'un ensemble de variables internes (V1, V2, V3).

Je serais tenté de faire Min(V1, V2, V3) mais bien entendu cela ne peut pas fonctionner. Il me faudrait l'équivalent VBA.

De même pour Max(V1, V2, V3)

Merci par avance

 

[Pierrot93]

Re : Equivalent VBA de Min et Max

Bonsoir,

regarde peutêtre ceci

Dim v1, v2, v3
v1 = 20
v2 = 40
v3 = 11
MsgBox Application.Min(v1, v2, v3)

bonne soirée
@+

 

[BOISGONTIER]

Re : Equivalent VBA de Min et Max

Bonjour,

a = Array(3, 2, 5)
x = Application.Min(a)

JB

 

[Pierrot93]

Re : Equivalent VBA de Min et Max

Re,

ou alors ainsi :

Sub test()
Dim v(9), i As Byte
For i = 0 To 9
    v(i) = Int(50 * Rnd) + 1
Next i
MsgBox Application.Min(v)
End Sub

Edition : re Jacques

 

[marmotte18]

Re : Equivalent VBA de Min et Max

Bonsoir Pierrot93 et BOISGONTIER,

Effectivement, il fallait y penser ! Rajouter "Application.", cela m'étonne toujours.

Merci à tous les 2, cela me convient parfaitement bien !

 

[tototiti2008]

Re : Equivalent VBA de Min et Max

Bonjour à tous,

L'ajout d' "Application" est un résumé de
Application.WorksheetFunction

en fait on fait appel à Min, Max des fonctions de la feuille de calcul

 

[marmotte18]

Re : Equivalent VBA de Min et Max

Bonjour tout le monde,

Merci tototiti2008, pour cette explication complémentaire. Je m'en souviendrai !

 

[Staple1600]

Re : Equivalent VBA de Min et Max

Bonsoir à tous

Une autre forme d'écriture possible

(Cela peut être utile parfois)

Sub b()
Dim f As WorksheetFunction
Set f = Application.WorksheetFunction
[A1:A10].Formula = "=RAND()"
MsgBox f.Min([A1:A10])
MsgBox f.Max([A1:A10])
End Sub

 

[marmotte18]

Re : Equivalent VBA de Min et Max

Bonjour Staple1600,

Merci aussi pour cette autre façon d'écrire ce que je souhaitais obtenir