VBA Average() : macro pour calculer la moyenne

La fonction Average() permet de réaliser une macro pour calculer la moyenne, aussi appelée moyenne arithmétique.

La fonction Average

La fonction VBA Average() suit la syntaxe suivante :

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

Exemple de macro avec Average

La macro

Sub macro()

Dim Tableau1, Tableau2 As Range 'Variable
Dim Moyenne As Single

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

Somme = Application.WorksheetFunction.Average(Tableau1, Tableau2)

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

End Sub

Les données sources

	A	B	C	D	E
1	6	9
2	2	3
3	5
4	1	1,5
5	5	7,5

Le résultat

	A	B	C	D	E
1	6	9		4,44444
2	2	3
3	5
4	1	1,5
5	5	7,5