Calculer une somme dans une macro

A

Abel

Guest

• 25 Janvier 2005

• #2

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.

 

Vote positif 0 Vote négatif

P

PeteBull

Guest

• 25 Janvier 2005

• #3

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 !

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 25 Janvier 2005

• #4

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é

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 25 Janvier 2005

• #5

Re,

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

Abel.

 

Vote positif 0 Vote négatif