VBA : Comment additionner les valeurs dans une plage

Vous pouvez utiliser la syntaxe de base suivante pour calculer la somme des valeurs d’une plage à l’aide de VBA :

Sub SumValues()
    Range("D2") = WorksheetFunction.Sum(Range("B2:B11"))
End Sub

Cet exemple particulier calcule la somme des valeurs dans la plage B2:B11 et affecte le résultat à la cellule D2 .

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

Sub SumValues()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range("B2:B11"))
    
    'Display the result
    MsgBox "Sum of Values in Range: " & sum
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 somme de la plage à l’aide de VBA et afficher les résultats dans la cellule

Supposons que nous souhaitions calculer la somme des valeurs 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 SumValues()
    Range("D2") = WorksheetFunction.Sum(Range("B2:B11"))
End Sub

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

Notez que la cellule D2 contient la valeur 245 .

Cela nous indique que la somme des valeurs dans la colonne des points est de 245.

Exemple 2 : calculer la somme 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 somme des valeurs 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 SumValues()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range("B2:B11"))
    
    'Display the result
    MsgBox "Sum of Values in Range: " & sum
End Sub

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

La boîte de message nous indique que la somme des valeurs dans la plage B2:B11 est 245 .

Notez que dans cet exemple, nous avons calculé la somme des valeurs comprises dans la plage B2:B11 .

Cependant, si vous souhaitez plutôt calculer la somme des valeurs dans une colonne entière, vous pouvez plutôt taper B:B .

Cela calculera la somme des valeurs pour chaque cellule de la colonne B.

Ressources additionnelles

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

VBA : Comment calculer la valeur moyenne de la plage
VBA : Comment compter le nombre de lignes dans la plage
VBA : Comment écrire des fonctions SUMIF et SUMIFS