Cumul

Bonjour,
Je souhaite faire un cumul de toutes les valeurs que je saisi dans une cellule, dans une autre cellule.
Ex: si j'ai A1= 5, B1 me donne 5,ensuite quand je saisi 6 en A1 je souhaite avoir B1=11 .
Comment cela pourrait marcher ?
Merci d'avance pour vos réponses

2 réponses

  1. Contributeur
    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/
    0
    1. 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
      0