VBA fonction max

[fred-bene]

Bonjour à tous.

Petite question simple : existe-t'il une fonction en vba qui permette de faire la même chose que la fonction excel max ou faut-il la créer sans faire un truc du genre ActiveCell.FormulaR1C1 = "=MAX(R[6]C[2]:R[15]C[2])"

Merci par avance.

Fred

 

[porcinet82]

Re : VBA fonction max

Salut,

Il te suffit d'utiliser un truc de ce genre :
max=Application.WorksheetFunction.Max(Range("B6:B15"))

@+

 

[Robert]

Re : VBA fonction max

Bonjour Fred, bonjour le forum,

Tu peux aussi, mais ça reste très similaire, utiliser :

ActiveCell.Formula = "=MAX(F16:F25)" 'plage à adapter à ton cas

Édition :

Ooops ! Télescopage... Avé Romain.

 

[fred-bene]

Re : VBA fonction max

Merci pour vot epromptitude à me répondre mais tout ça je connais. En fait je cherche à trouver le max de valeurs situées dans une matrice déclarée par exemple dim matrice(4,5) as integer.

 

[Hervé]

Re : VBA fonction max

bonjour

essaye :

application.max(matrice)

salut

 

[Hervé]

Re : VBA fonction max

re

j'avais pas testé ma réponse, chose faite maintenant :

Dim matrice(4, 5) As Long
Dim i As Byte, j As Byte

For i = 0 To 4
    For j = 0 To 5
        matrice(i, j) = Int(Rnd * 1000)
    Next j
Next i

Range("a1:e5") = matrice

MsgBox Application.Max(matrice)

salut

 

[fred-bene]

Re : VBA fonction max

Super ça.
Comment as-tu trouvé ? Nulle part je n'ai vu mention de ce type de fonction.

En tout état de cause, merci

Fred

PS : une petite erreur dans ton script : il faut Range("a1:f5") = matrice
et non Range("a1:e5") = matrice