Catégories
Macro VBA Maths & Stats Macros VBA

VBA Average() : macro pour calculer la moyenne

Partager :

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

ABCDE
169
223
35
411,5
557,5

Le résultat

ABCDE
1694,44444
223
35
411,5
557,5