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
 

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+
 

Discussions similaires

Réponses
10
Affichages
240
Réponses
7
Affichages
358