Addition multiple

Bonjour,

pour le travail j'aimerais connaitre la formule pour réaliser une addition cumuler sur une celule.

C'est a dire que a chaque fois que j'écris une valeur dans une case elle s'additionne dans une autre et la valeur disparait pour pouvoir mettre une autre valeur.

exemple

A2 : 5 B2 (total) 5

A2 : vide B2: 5

A2 : 7 B2 : 13

etc....

Es ce possible et si oui quelqu’un pourrait il m'aider?

Cordialement olivier

Bonjour le forum,

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
    If Target.Count = 1 Then
        Application.EnableEvents = False
        Target.Offset(0, 1).Value = Val(Target.Offset(0, 1).Value) + Val(Target.Value)
        Application.EnableEvents = True
    End If
End If
End Sub

Merci mais ma connaissance ne permet pas d'exploiter ta réponse , je dois en faire quoi de cette macro?

cdt olivier

ALT F11 (ou clic droit sur l'onglet : visualiser le code) pour accéder au VBA.

Copier le code.

Bonjour, Salut mbbp,

Une solution par formule :

En B2 la formule suivante et à copier vers le bas :

=SOMME($A$2:A2)

Salut Raja,

olive64 a écrit :

A2 : 5 B2 (total) 5

A2 : vide B2: 5

A2 : 7 B2 : 13

etc....

Le cumul est demandé dans la même cellule.

Cela n'est possible que par VBA.

bonsoir

erreur Mbbp

il suffit d'aller dans options excel puis d'activer le calul iteratif , puis a nb de mettre 1 ce qui empeche la ref circulaire

bien sur tout le fichier ,s'en trouve impacté ; mais ................

cordialement