Autres Petit problème à résoudre

MarcZ · 18 Septembre 2019

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 · 18 Septembre 2019

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 · 18 Septembre 2019

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 · 18 Septembre 2019

Re

Autre essai voir Pj cellule A1

Slts

job75 · 18 Septembre 2019

Bonsoir MarcZ, riton00,

Je ferais plutôt comme ceci :

VB:

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 · 19 Septembre 2019

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

VB:

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

Autres Petit problème à résoudre

MarcZ

XLDnaute Nouveau

riton00

XLDnaute Impliqué

Pièces jointes