Additionner en cumulant

Bonjour à tous,
Je cherche à additionner dans une cellule "A5"un total qui se cumule à chaque fois que je renseigne la cellule "A1".
Par exemple :
3 dans la cellule "A1" donne 3 dans la cellule A5
Ensuite j'efface la cellule "A1" et j'inscris 6 dans la cellule "A1"; la cellule "A5" indique alors 9
Je réécris 10 dans la cellule "A1" et la cellule "A5" additionne et me donne 19 etc...
Merci d'avance de votre aide
Edgar

Bonjour,

Ce n'est possible qu'avec une macro évènementielle VBA.

A mettre dans le module de la feuille concernée :

Code:

---

1 2 3 4

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then [A5].Value = Val([A5].Value) + Val([A1].Value) End Sub

---

Merci Patrice,
Je suis moi-même retraité, Merci beaucoup c'est super
Edgar Rivas

edgar-rivas@sfr.fr

J'ai installé le compteur dans une feuille de calcul où il y déjà un compteur de couleur VBA (en pièce ci-joint). Le compteur additionne mais en en reprenant à chaque fois
le total une deuxième fois des 2 cellules A1 et A5.
Pouvez vous résoudre le problème? Je n'y arrive pas.
Merci encore...

Bonjour,

Si vous voulez obtenir la somme cumulée à partir d'un bouton, c'est différent, supprimez la macro de la feuille 1 et modifiez la macro "cumul_couleur en ajoutant la ligne suivante en fin de programme juste après "Application.calculate":

Code:

---

[G2] = [G2] + [E2]

---

cdlt

Merci beaucoup trop sympa.