Ajouter un montant à un total

Bonjour,

La question que je pose a l'air simple, mais je ne trouve pas la solution, raison pour laquelle je fais appel à vous.

Je vous explique en exemple.

En A1 j'introduis un montant qui doit s'ajouter à un montant existant en A2

Donc comme base j'ai par exemple 3000 en A2

Quand je tape un montant en A1 il doit me le rajouter en A2 mais ça ne fonctionne pas

=somme(A1+A2)

Il me met des chiffres totalement erronés.

Quelqu'un aurait-il une solution ?

Merci d'avance

Bonjour,Ctiteuf,

J'ai bien une petite idée, mais je ne sais pas si elle te conviendras

En restant dans la colonne A, ça crée une référence circulaire

Donc, passons à la colonne B avec la formule suivante :=A2+A1

personnellement, je ne vois rien d'autre pour l'instant.

Amicalement, Papy Pierrot

Ci-joins un fichier exemple

TestCp004

Merci Papy Pierrot

Je vous remercie pour votre réponse et effectivement le problème vient d'une référence circulaire.

La solution est évidemment celle-là, cependant le problème, c'est que le montant à introduire dans ma cellule A1 change chaque fois.

Je prends un cas concret.

Le fichier que j'essaie de mettre en place est un tableau de vente de sacs poubelles pour notre administration communale.

Quand un citoyen vient acheter des sacs, j'introduis en A1 le nombre de sacs vendus. En A2 il doit me faire le total du nombre de sacs vendus depuis le début de l'année plus les sacs qui viennent d'être vendus.

Cependant, dès qu'une autre personne vient acheter des sacs, un nouveau chiffre est introduit dans la cellule A1 et inévitablement il y a une incidence sur la cellule A2 puisque la cellule A1 a été modifiée. Je ne sais pas si je me fais bien comprendre.

Il me faudrait donc une solution qui permettrait d'introduire en A1 le nombres de sacs vendus de façon journalière, que le total ce fasse en A2 (total des ventes depuis le début de l'année + ajouter les ventes journalières) mais que ce total soit gelé en quelque sorte jusqu'à ce que je réintroduise un nouveau montant en A1 et ainsi de suite.

Pas facile d'expliquer sans l'exemple.

Je vous remercie encore pour votre aide.

Bonjour,

Un exemple,regarde et dis quoi.

Clic sur plus après avoir introduit un chiffre en A1

A +

Bonjour,

Voir dans le fichier ci-joint.

Bonjour,

Le même mais amélioré sur Feuil 2

A +

Rebonsoir,

J'ai trouvé le projet de Raja, intéressant de même que celui de Henri,

J'ai modifié celui de Raja pour effacer la dernière entrée en A1 après le cumul

Je vous retourne votre fichier.

Bonne soirée, Papy Pierrot

bonjour

La solution sans macro

cordialement

Bonsoir, Tulipe,

J'ai une version excel 2010 et je ne trouve pas les outils calcul avec itérations,de ta version 2000

ta solution fonctionne bien mais je ne la comprend pas.

Amitiés,

Papy Pierrot

re

outils cela doit etre dans le bandeau comme fichier .........

cordialement

Bonsoir à tous,

Fichier/Option/Formules et cocher l'option "Activer le calcul itératif" et mettre "le nombre maximal d'itérations" à 1

Bonjour à vous tous,

Je voudrais vivement vous remercier pour votre aide très précieuse.

Je vais essayer d'adapter vos exemples à mon tableau.

Je vous tiens au courant si tout est fonctionnel.

Merci encore pour l'aide que vous m'avez apportée.

Hélas, je ne sais pas vous aider de mon côté mais le jour où l'on pourra envoyer un bon vin par le câble, je vous en enverrai des litres

Amicalement

Voilà,

Et bien après pas mal d'essais pour récupérer la macro et l'insérer dans mon fichier, tout semble fonctionner à merveille.

Vraiment un tout grand merci à vous et le jour où je gagne au lotto, envoyez-moi votre numéro de compte

Mille merci et bonne fin de semaine à tous

Bonjour,

Je reviens vers vous pour un supplément d'informations.

Les exemples que vous m'avez donnés fonctionnent mais j'aimerais imbriquer la même macro dans le même fichier avec la même fonction mais ça ne fonctionne pas.

Voici l'exemple :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("E6"), Target) Is Nothing Then

Range("E7") = Range("E6") + Range("E7")

End If

If Not Intersect(Range("G6"), Target) Is Nothing Then

Range("G7") = Range("G6") + Range("G7")

End If

End Sub

Ca fonctionne très bien en E mais par contre la solution n'est pas fonctionnelle pour la cellule G et je ne sais pas pourquoi

Quelqu'un aurait-il encore une solution à m'apporter pour ce petit problème

Je vous remercie une fois encore pour l'aide que vous m'avez apportée.

Coridalement

Bonjour,

cela fonctionne cher moi.

Sinon envoi ton fichier.

A +

bonsoir

chez moi aussi

essaye ça

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E6"), Target) Is Nothing Then
Range("E7") = Range("E6") + Range("E7")

ElseIf Not Intersect(Range("G6"), Target) Is Nothing Then
Range("G7") = Range("G6") + Range("G7")
End If

End Sub

ça marche aussi

Bonjour,

Merci pour votre aide mais chez moi ça ne marche pas.

Dans la feuille Sacs gratuits, en E6 la macro fonctionne

Par contre en G6 ça ne s'additionne pas à G7

J'ai modifié avec le fichier de tulipe mais ça ne marche pas

Merci encore pour lecture

Cordialement

Bonjour,

Ton code n'est pas dans le bon module. Il faut qu'il soit dans le module de la feuille d'action à savoir "Sacs gratuits". Vois dans le fichier ci-joint.

Super Raja,

Je te remercie vivement. Effectivement je n'utilisais pas la bonne feuille.

Passez tous un très bon we et encore mille mercis pour votre aide très précieuse.

Cordialement

Christophe