Cumule de valeurs saisie journellement

kerscouet Messages postés 17 Statut Membre -  
M-12 Messages postés 1349 Statut Membre -
Bonjour,

Dans une feuille de calcul excel, je saisie dans A1 la valeur 10 aujourd'hui, 10 apparaît dans B2.
Demain, je saisie dans A1 la valeur 5, dans B2 apparaît 15 (10+5)
Après demain, je saisie dans A1 la valeur 8, dans B2 apparaît 23 (10+5+8)
Et ainsi de suite, tous les jours du mois.
Comment est-ce possible.
Merci

3 réponses

  1. M-12 Messages postés 1349 Statut Membre 285
     
    Bonjour
    Une macro à mettre dans la feuille concernée

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Temp
    Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
    Range("B2") = Range("B2") + Range("A1")
    Range("A1") = ""
    End If
    Application.EnableEvents = True
    End Sub
    0
    1. Mairys71 Messages postés 3 Statut Membre
       
      merci mais cela ne marche pas, je ne dois pas faire ce qu'il faut
      cordialement
      0
  2. Raymond PENTIER Messages postés 58216 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    ... et comme je ne pratique pas VBA, j'évite de saisir les différentes données dans une même cellule, puisque j'ai la chance d'avoir une version récente d'Excel qui accepte des millions de cellules ! Donc je saisis 10 en A2, 5 en A3, 8 en A4 ... jusqu'en A32.
    Et en A1 j'ai ma formule =SOMME(A2:A32)
    Pourquoi faire compliqué quand on peut faire simple ? 
    0