somme cumulée avec remise à zéro

[Fred]

Bonjour exceliennes et exceliens,

Quelqu'un pourrais me dire comment faire pour obtenir une somme avec remise à zéro d'une cellule avant calcul ??

Je m'explique.
En celulle A1 je mets un chiffre.

Dans la celulle C1 je voudrais que ce cumul le chiffre de A1 plus le chiffre que j'entrerai la prochaine fois en A1.

Merci à toutes et à tous d'avance.

 

[Jean-Marie]

Bonjour, Fred

Voici une solution,

1) Copie le code ci-dessous,
2) Fait un clique droit sur l'onglet de la feuille,
3) Choisi de "Visualiser le code"
4) Dans la fenêtre au premier plan, colle le code
Attention, il ne doit pas avoir qu'une Sub Worksheet_SelectionChange
si c'est le cas rajouter les lignes de If Range .... End If

5) Ferme VBA, pour revenir sur la feuille
6) C'est fait.

Voici le code
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("A1") <> 0 Then
Range("C1") = Range("C1") + Range("A1")
Range("A1") = 0
End If
End Sub

Ce que va faire le code, à chaque fois que l'événement de changement de cellule active, aura lieu l'addition sera faîte, et la cellule A1 sera remise à zéro.

Bonne journée

@+Jean-Marie

 

[Man]

Bonjour,
Tu trouvera la réponse dans l'aide en entrant le texte "référence circulaire".
bon courage.

 

[Jean-Marie]

Re...

Man je connais cette possibilité, mais dans ce cas il ne peut y avoir remise à zéro de la cellule A1.

Bonne Journée

@+Jean-Marie

 

[Fred]

Pour Man

Merci oui j'avais vu le principe itération qui n'est pas mal mais qui ne remet pas à zéro ma cellule de saisie.

Merci tout de même

 

[Fred]

Pour Jean Marie,

Merci pour le code VBA, je vais essayer de l'adapter à mon tableau maintenant.