Autres Petit problème à résoudre

riton00

XLDnaute Impliqué

• 18 Septembre 2019

• #2

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

 

Pièces jointes

• test.xlsm

  12.9 KB · Affichages: 5

Vote positif 0 Vote négatif

M

MarcZ

XLDnaute Nouveau

• 18 Septembre 2019

• #3

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

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 18 Septembre 2019

• #4

Re

Autre essai voir Pj cellule A1

Slts

 

Pièces jointes

• test2.xlsm

  13.1 KB · Affichages: 13

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Septembre 2019

• #5

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Septembre 2019

• #6

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

VB:

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

 

Vote positif 0 Vote négatif