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 SingleSet 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).SelectEnd 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 |