Equivalent VBA de Min et Max

Pierrot93

XLDnaute Barbatruc

• 26 Octobre 2010

• #2

Re : Equivalent VBA de Min et Max

Bonsoir,

regarde peutêtre ceci

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 26 Octobre 2010

• #3

Re : Equivalent VBA de Min et Max

Bonjour,

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

JB

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Octobre 2010

• #4

Re : Equivalent VBA de Min et Max

Re,

ou alors ainsi :

Code:

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

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 26 Octobre 2010

• #5

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 !

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 26 Octobre 2010

• #6

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

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 30 Octobre 2010

• #7

Re : Equivalent VBA de Min et Max

Bonjour tout le monde,

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2010

• #8

Re : Equivalent VBA de Min et Max

Bonsoir à tous

Une autre forme d'écriture possible

(Cela peut être utile parfois)

Code:

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

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 31 Octobre 2010

• #9

Re : Equivalent VBA de Min et Max

Bonjour Staple1600,

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

 

Vote positif 0 Vote négatif