VBA : Comment calculer la valeur moyenne de la plage

Vous pouvez utiliser la syntaxe de base suivante pour calculer la valeur moyenne d’une plage dans Excel à l’aide de VBA :

Sub AverageRange()
    Range("E2") = WorksheetFunction.Average(Range("B1:B12"))
End Sub

Cet exemple particulier calcule la valeur moyenne dans la plage B2:B12 et attribue le résultat à la cellule E2 .

Si vous souhaitez plutôt afficher la valeur moyenne dans une boîte de message, vous pouvez utiliser la syntaxe suivante :

Sub AverageRange()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range("B1:B12"))
    
    'Display the result
    MsgBox "Average Value in Range:" & avg
End Sub

Les exemples suivants montrent comment utiliser chacune de ces méthodes en pratique avec l’ensemble de données suivant dans Excel qui contient des informations sur divers joueurs de basket-ball :

Exemple 1 : calculer la moyenne de la plage à l’aide de VBA et afficher les résultats dans la cellule

Supposons que nous souhaitions calculer la valeur moyenne dans la colonne des points et afficher les résultats dans une cellule spécifique.

Nous pouvons créer la macro suivante pour ce faire :

Sub AverageRange()
    Range("E2") = WorksheetFunction.Average(Range("B1:B12"))
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Notez que la cellule E2 contient une valeur de 21,27273 .

Cela nous indique que la valeur moyenne dans la colonne des points est de 21,27273.

Exemple 2 : calculer la moyenne de la plage à l’aide de VBA et afficher les résultats dans la boîte de message

Supposons que nous souhaitions plutôt calculer la valeur moyenne dans la colonne des points et afficher les résultats dans une boîte de message.

Nous pouvons créer la macro suivante pour ce faire :

Sub AverageRange()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range("B1:B12"))
    
    'Display the result
    MsgBox "Average Value in Range: " & avg
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

La boîte de message nous indique que la valeur moyenne dans la plage B2:B12 est 21,27273 .

Notez que dans cet exemple, nous avons calculé la valeur moyenne dans la plage B2:B12 .

Cependant, si vous souhaitez plutôt calculer la valeur moyenne dans une colonne entière, vous pouvez taper B:B à la place.

Cela calculera la valeur moyenne pour chaque cellule de la colonne B.

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : Comment écrire des fonctions AVERAGEIF et AVERAGEIFS
VBA : Comment écrire des fonctions SUMIF et SUMIFS
VBA : Comment écrire les fonctions COUNTIF et COUNTIFS