Somme cumulée

[bertreng]

Bonjour

Est-il possible de totaliser des nombres introduits sucessivement dans une seule et même cellule ?
merci

 

[visiteur]

bonjour bertreng

oui tu fais :
=5+15+205 et tu valides

 

[JYLL]

Bonjour Bertrand et visiteur,

Un peu en dehors de la question mais des fois agréable. Dans le bas à droite du classeur tu as une zone ou si tu sélectionnes des cellules jointes ou disjointes tu peux avoir plusieurs résultats suivant option cochée. Clic droit dans le bas du classeur cmme le montre l'image jointe.

Bonne journée. Amicalement.

Jean-Yves [file name=Image1.zip size=7995]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Image1.zip[/file]

 

[Charly2]

Bonsoir Bertreng, visiteur et JYLL,

Si j'ai bien compris ta demande le code suivant devrait y répondre. Dans le module VariablesGlobales :

Public OldValue As Integer

Dans ThisWorkbook (pour conserver la valeur précédemment enregistrée dans la cellule B2 (à modifier le cas échéant) :

Private Sub Workbook_Open()
  OldValue = Sheets('Feuil1').Range('B2')
End Sub

Et enfin dans 'Feuil1' :

Dim InChange As Boolean
'-----------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Not InChange Then
    InChange = True
    If Target.Address = '$B$2' Then
      If IsEmpty(Target.Value) Then
        OldValue = 0
      Else
        Target = Target + OldValue
        OldValue = Target
      End If
    End If
    InChange = False
  End If
End Sub

Voir fichier joint pour exemple

Amicalement
Charly [file name=Bertreng_20051222000046.zip size=8489]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Bertreng_20051222000046.zip[/file]