Calculer une somme dans une macro

[PeteBull]

Bonjour

En VBA, je n'arrive pas a calculer la somme des cellules d'un range, et stocker le résultat dans une variable. Si je mets le résultat dans une cellule, ca marche, mais pour faire le calcul dans ma macro je n'y arrive pas....

Quelqu'un pourrait m'aider ?

Merci d'avance !

 

[Abel]

Bonjour PeteBull,

Range("a1:a10").Select ' ou tout autre méthode pour sélectionner la zone à sommer
s = 0
For Each c In Selection
s = s + c
Next
MsgBox ("La somme de cette sélection est : " & s)
End Sub

Il y a sans doute d'autres méthodes.

En espérant que cela te dépanne.

Abel.

 

[PeteBull]

Oui, j'avais en effet pensé en dernier recour à cette solution, mais j'esperai trouver une fonction tout-en-un. Bon ben c déjà bien utile quand même.

Merci !

 

[Hervé]

Bonjour petebull, Abel, le forum

Sinon, si l'on veut éviter la boucle :

en s'appuyant sur la macro d'Abel :

s = Application.WorksheetFunction.Sum(Range("a1:a10"))
MsgBox ("La somme de cette sélection est : " & s)


Salut
Hervé

 

[Abel]

Re,

Heu ... Oui, bien sûr, Hervé.
Autant pour moi

Abel.