Autres Petit problème à résoudre

MarcZ

XLDnaute Nouveau
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

XLDnaute Occasionnel
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
 

Fichiers joints

MarcZ

XLDnaute Nouveau
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
 

job75

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Un complément nécessaire si l'on veut effacer A1 :
VB:
Sub EffacerA1()
Application.EnableEvents = False
[A1] = ""
Application.EnableEvents = True
End Sub
 

Discussions similaires


Haut Bas