Cumul

Bonjour,

Code à intégrer dans la feuille de calcul que vous souhaitez utiliser et non dans un module :
- Alt + F11 > Double-clic sur le nom de votre feuille à gauche (en jaune ) > et copier/collez le code suivant

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$A$1" Or Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub

    If IsNumeric(Target.Value) = False Then
            Application.EnableEvents = False
        Application.Undo
            Application.EnableEvents = True
        
        MsgBox "Merci d'utiliser des valeurs numériques uniquement", _
        vbExclamation, _
        "Erreur colonne A"
        Exit Sub
    End If

Dim OldVal As Double, NewVal As Double

NewVal = Target.Value

    Application.EnableEvents = False
OldVal = Target.Offset(0, 1).Value
Target.Offset(0, 1).Value = OldVal + NewVal
    Application.EnableEvents = True

End Sub

Lorsque la valeur de A1 change, elle est additionnée à B1. Pour repartir à 0 il faut juste supprimer la valeur de B1

Bonjour
si vous êtes en Excel, il faut passer par VBA
une option ici:
voyez avec:
clic droit sur le nom d'onglet "feuil1"
et "visualiser le code"
cette option ajouta la valeur de A à la cellule B en ligne pour toute la colonne A
crdlmnt
https://mon-partage.fr/f/69t4yitn/