Macro additionner dans une même cellule sans formules

Bonjour à tous,

j'ai un énorme fichier dans lequel je dois saisir des quantités en fonction des dimensions et je dois donc additionner.

y a t il un moyen plus simple?

je m'explique, lorsque dans une cellule, il y a 5, j'aimerai que si je met 4, celle ci me calcule automatiquement 5+4=9, puis je reviens dessus je mets 10 et hop, cela me calcule automatiquement 19, sans que j'ai à écrire de formules...

Merci pour votre aide.

cordialement,

Bonjour,

Ce que tu demandes ...est très facile ...

Par contre, avec la théorie ... seule ... ce ne sera pas très effectif ...

Pourquoi ne pas joindre ton fichier ... pour que la solution soit adaptée à ta situation ...

2Bonjour,

merci pour ta réponse, un fichier ne serait pas assez explicite mais il faudrait dans une cellule où un 1 est deja inscrit, que je puisse ecrire 1 (comme si j'écrasais la donnée) et que automatiquement Excel comprennent qu'il faut mettre 2.

cela m'évite d'écrire dans la cellule =1+1+7+1+1+9+1+1+10+3+1+8+1+43+12+17+15

le fichier comporte une 50aine de ligne pour 14 colonnes.

merci pour ton aide

Bonsoir le forum,

Letikeur a écrit :

il faudrait dans une cellule où un 1 est deja inscrit, que je puisse ecrire 1 (comme si j'écrasais la donnée) et que automatiquement Excel comprennent qu'il faut mettre 2.

Option Explicit
Dim cumul
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 cumul = Range("A1")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
    If Target.Address = "$A$1" Then Range("A1") = cumul + Range("A1")
  Application.EnableEvents = True
End Sub

Bonjour,

Puisque tu as envie de faire l'adaptation tout seul ... pas de problème ...

Tu n'as qu'à adapter le fichier test joint à ta situation ...

bonjour,

merci pour vos réponses, c'est tout à fait ca !! merci beaucoup, par contre je n'arrive pas a l'adapter à toute la page excel...

pourriez vous m'aider une dernière fois svp?

Merci infiniment

J'ai réussi à l'adapter sur toute la feuille excel, par contre en cas d'erreur je ne peux pas supprimer la donnée ou revenir en arrière dans les cellules.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim AncVal As Variant, NouvVal As Variant

If Target.Count > 1 Then Exit Sub

Application.EnableEvents = False

NouvVal = Target.Value

Application.Undo

AncVal = Target.Value

If IsNumeric(AncVal) And IsNumeric(NouvVal) Then

Target.Value = NouvVal + Target.Value

End If

Application.EnableEvents = True

End Sub

Bonjour,

1. Pour "revenir en arrière" .... compte tenu du principe que TU as décidé ... il te faut faire -12 pour corriger un + 12 ...

2. Ton adaptation ne tien pas compte de la plage réelle dans laquelle tu veux appliquer ce mode de travail ... donc ta logique est appliquée partout ... et tu ne peux pas effacer ta plage ...

P.S. je t'invite à relire les messages précédents ... et les mises en garde que je t'avais faites ...

Merci James pour ta réponse,

effectivement, c'est un peu compliqué car ce fichier n'est pas pour moi mais pour mon collègue mais à 1ere vu il arrive à se dépatouiller comme ca.

si j'arrive à récupérer son fichier cela sera plus simple.

Merci encore pour ton aide.

Re,

Content que la solution fonctionne ...

Merci pour tes remerciements ...