Discussion :

[EAU24]

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

[Patrice740]

Bonjour,

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EAU24]

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

edgar-rivas@sfr.fr

[EAU24]

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...

[ARTURO83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

    [G2] = [G2] + [E2]

cdlt

[EAU24]

Merci beaucoup trop sympa.