VBA Max() : macro pour renvoyer la valeur maximale

La fonction VBA Max permet de réaliser une macro pour renvoyer la valeur maximale d'une ou plusieurs plages dans Excel.

La fonction Max

La fonction VBA Max suit la syntaxe suivante :

Application.WorksheetFunction.Max(plage1, plage2, ...)

Exemple de macro avec Max

La macro

Sub macro()

Dim Tableau1, Tableau2 As Range
Dim Maxi As Single

Set Tableau1 = Range("A1:A5")
Set Tableau2 = Range("B1:B5")

Maxi = Application.WorksheetFunction.Max(Tableau1, Tableau2)

ActiveCell.Offset(0, 0).FormulaR1C1 = _
Maxi
ActiveCell.Offset(1, 0).Select

End Sub

Les données sources

	A	B	C	D	E
1	-12,2424	12,2424
2	2	2
3	-14	14
4	1	1
5	23	23

Le résultat

	A	B	C	D	E
1	-12,2424	12,2424		23
2	2	2
3	-14	14
4	1	1
5	23	23