Cumule de valeurs saisie journellement

Fermé
kerscouet Messages postés 17 Date d'inscription vendredi 29 juin 2018 Statut Membre Dernière intervention 1 août 2019 - 1 juil. 2018 à 13:17
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 - 4 juil. 2018 à 06:58
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

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
1 juil. 2018 à 13:33
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
Mairys71 Messages postés 3 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 2 juillet 2018
2 juil. 2018 à 21:33
merci mais cela ne marche pas, je ne dois pas faire ce qu'il faut
cordialement
0
Raymond PENTIER Messages postés 58652 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 19 septembre 2024 17 198
2 juil. 2018 à 18:44
... 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
M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
4 juil. 2018 à 06:58
Bonjour,

Avec un classeur exemple
https://www.cjoint.com/c/HGeeSlsfV2B
0