Somme successive de valeurs prises par une cellule

Bonjour à tous,

Après plusieurs heures de recherche, je n'est pas trouvé de réponse à mon problème. (je ne dit pas que mes recherches sont infaillible )

Je vous explique :

J'aimerai créer un compteur sur excel, c'est à dire :

J'ai en entrée une cellule (par exemple la cellule A1) et je lui met une valeur.

J'ai en sorti une cellule (par exemple la cellule B1) qui va accumuler les valeurs qu'a pris la cellule d'entrer (A1):

J'aimerai qu'à chaque fois que je modifie A1, B1 ce modifie, ex :

J'ai entré la valeur 5 dans A1, B1 passe de 0 à 5, je modifie A1 par 8 et a ce moment la, B1 affichera 13.

J'ai donc cherché à créer une fonction mais en vain... Je ne vois pas ce que je pourrais créer comme macro ni comment l'affecter à la case B1. Je n'ai pas réussi a créer de fonction du type B1=B1+A1...

J'ai avancer un peu je crois mais je ne vois pas comment je peut modifié la valeur de B1 lorsque A1 est modifié. J'ai fait ça :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim KeyCells As Range

    ' La variable KeyCells contient les cellules qui déclencheront
    ' une alerte si elles sont modifiées.
    Set KeyCells = Range("A1")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
    Is Nothing Then
    'Modifier B1 lorsque A1 est modifié

    End If
    End Sub

Merci de votre aide

bonjour,

Oui tu étais sur le bon chemin : YAPUKA conclure :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("A1")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
    Range("B1") = Range("B1") + Range("A1")
    End If
End Sub

A+