Faire des cumulatifs dans excel 2003

[Mélania]

Bonjour et merci de votre aide,

Dans MS excel 2003 je doit faire des cumulatifs pour des paies.A partir d'une cellule (B2 par exemple) j'entre un montant et j'aimerais que ce montant s'inscrive dans une autre cellule (D10 par exemple) et faire en sorte que lorsque je vais écrire un nouveau montant dans "B2" non seulement j'aimerais que celui de "D10" demeure mais qu'il s'additionne l'un a l'autre.

Donc si j'inscris le nombre 5 dans "B2", la premiere fois je vais retrouver dans "D10" la valeur 5 mais, lorsque je vais écrire un nouveau chiffre dans "B2" soit 3 alors la fois suivante je devrai retrouver 8 comme valeur dans "D10"

Est-ce possible dans excel ?

Mille Merci Mélania

[Sebastien]

Bonjour et bienvenue sur le forum,

Voici une suggestion de tableau qui pourrait fonctionner. Cela nécessite de lancer une macro qui permet de valider le cumul.

Voici comment fonctionnerait le tableau :


Soit une cellule A4 avec le montant à enregistrer, une cellule E5 contenant le total précédant (avant ajout) et une cellule E4 contenant le total final.



Dans A4, on saisit le montant à ajouter (exemple 150).



On clique sur le bouton Sauvegarde pour valider la saisie.
Le montant du total précédant fait 0.
Le montant du total (après ajout) fait 150 (0+150).


On ajoute un nouveau montant (exemple 500).


On clique sur Sauvegarde.
Le total précédant fait 150.
Le nouveau total fait 650 (500 + 150).

En cas d'erreur, on sait que le total précédant faisant 150.

Voici la macro à utiliser :

Code: Tout sélectionner

Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 21/10/2009 par Sebastien
'
'
    Range("E4").Select
    Selection.Copy
    Range("E5").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "=R[1]C+RC[-4]"
    Range("E4").Select
    Selection.Copy
    Range("E4").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("F4").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A4").Select
End Sub

Il suffit d'appeler la macro depuis le menu de macro ou de l'appeler avec un bouton pour plus de simplicité.

@+

[Mélania]

Bonjour Sébastien et merci beaucoup pour ta réponse,

Ça fonctionne parfaitement. Je me demandais si c'est possible de faire ce même exercice si la cellule A5 était une formule par exemple =A2*A3 ?
En d'autre mots, le chiffre obtenue dans la cellule A5 n'est pas saisie manuellement mais, est plutôt le résultat d'une autre formule ??? Je me demandais également si tu avais utilisé l'enregistreur de macro pour créer cette macro car je suis vraiment curieuse de savoir comment on peu en arriver a ce résultat avec l'enregistreur ?

J'apprécie beaucoup ton aide

Mélania

[Sebastien]

Bonsoir,

Je me demandais si c'est possible de faire ce même exercice si la cellule A5 était une formule par exemple =A2*A3 ?

Dans mon exemple, il n'y a rien dans A5. J'en déduis donc qu'il s'agit de A4.
Mais ça doit fonctionner, c'est le montant qui est collé et non la formule.

Je me demandais également si tu avais utilisé l'enregistreur de macro pour créer cette macro car je suis vraiment curieuse de savoir comment on peu en arriver a ce résultat avec l'enregistreur ?

Oui j'ai utilisé l'enregistreur de macro (sauf pour le bouton)
Il suffit de penser à l'avance à l'enchainement que va devoir faire la macro, puis d'ouvrir l'enregistreur, de réaliser cet enchainement, et d'enregistrer la macro.

L'enchainement dans notre cas est :

• Copier E4 en E5.
• En E4, faire E5 + A4 (total précédent + nouveau montant).
• Faire un copier/collage spécial de la valeur (pour supprimer la formule).

et ainsi de suite ...
L'assistant génère le code tout seul.

@+

[Mélania]

Merci beaucoup Sébastien de ton aide. je ne connaissais pas le collage spécial mais avec tes explications, j'ai fait une petite recherche sur cette fonction et le problème est résolu.

Merci

Mélania