Autres Petit problème à résoudre

[MarcZ]

Bonjour, je suis novice et je cherche un peu d'aide.Dans mon tableau Excel, dans une cellule A1, je rentre la valeur 10.00€, je passe à la case B1 et je rentre 15.00€. Je souhaite revenir à la cellule A1 et y rajouter 3.00 € (et j'y reviendrai plusieurs fois pour y rajouter des sommes différentes)donc que mon total se face automatiquement à13.00€. Pouvez-vous me renseigner sur la formule à appliquer à la case A1 pour que la somme se fasse automatiquement chaque fois que je vais rajouter une somme. Merci d'avance pour votre aide. Cdt Marc

 

[riton00]

Bonjour,

Peut-être avec une macro et encore....si j'ai bien capté ce que tu voulais
Chaque valeur en plus dans les cellules A2 ou B2 sont comptabilisé dans C2

Slts

 

[MarcZ]

Bonjour riton, si je met 10€ dans la case A1 et que quelques temps après je reviens sur cette case rajouter 3€, je voudrais que la case A1 passe à 13€. En fait, c'est une addition automatique.
Slts

 

[riton00]

Re

Autre essai voir Pj cellule A1

Slts

 

[job75]

Bonsoir MarcZ, riton00,

Je ferais plutôt comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Dim mem
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Undo
mem = [A1]
Application.Undo
[A1] = Val(Replace(CStr([A1]), ",", ".")) + Val(Replace(CStr(mem), ",", "."))
Application.EnableEvents = True
End Sub

A+

 

[job75]

Un complément nécessaire si l'on veut effacer A1 :

Sub EffacerA1()
Application.EnableEvents = False
[A1] = ""
Application.EnableEvents = True
End Sub