Cellule cumulative

Bonjour,

J’aimerai trouver une formule pour cumuler les nombres taper dans une autre cellule :
Imaginons en A1, je tape « +2 »
En A2, « 2 » est affiché
En A1, je tape directement pardessus « +4 »
En A2, « 6 » est affiché
En A1, je tape pardessus « -1 »
En A2, « 5 » est affiché

Chaque fois que je change la valeur en A1, le cellule A2 ne change pas de valeur, mais cumule tous ce qui est tapé.

Merci d’avance,

1 « J'aime »

Bonjour,
cela se fait à partir d’une macro, avec un évènement de changement sur A1.
Pourquoi ? Parce qu’on doit mémoriser la valeur de A2

Merci pour votre réponse, connaissez-vous la formule ?

C’est pas une formule mais plutôt des lignes de code.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
If Target = Range("A1") Then
Range("A2") = Range("A2") + Range("A1")
End If
fin:
End Sub

Raccourci : ALT+F11
A mettre dans la feuille.

Exemple :
Exemple.xlsm (17,8 Ko)

Super cela fonctionne, cependant j’aimerai que la cellule ne me multiplie pas par 2 lors de la première utilisation. (Quand je tape 2 dans A1, 4 est affiché en A2, or j’aimerai que 2 soit affiché)

1 « J'aime »

Un instant je vais voir,
Essayer de l’changer par :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1], Target) Is Nothing Then
Application.EnableEvents = False
Range("A2") = Range("A2") + Range("A1")
Application.EnableEvents = True
End If
End Sub

Exemple.xlsm (20,2 Ko)

1 « J'aime »

Super, merci beaucoup, tout fonctionne

1 « J'aime »

on peut aussi remplacer
et n’oublie pas de marquer SOLUTION, cela fait toujours plaisir

[A1] 
 
 par

RANGE("A1")

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.