macro:cumul de valeurs saisies dans1 cellule.

[pitr]

Je reviens avec mon problème de cumul.

Pour ceux qui n'ont pas lu mon 1er message, je veux faire un calcul de cumul de ventes saisies journellement.

J'ai trouvé sur le support Microsoft cette macro, mais n'y connaissant rien, je n'arrive pas à la mettre en forme:

cumul
=CELLULE.ACTIVE()
=ANNULER()
=CELLULE.ACTIVE()
=FORMULE(L(-3)C+L(-1)C;CELLULE.ACTIVE())
=RETOUR

Il faudrait même rendre la fonction automatique à chaque saisie journalière dans la feuille 1, alors si vous pouviez m'aider ce serait vraiment chouette parce que j'ai un besoin urgent de ce tableau !!!!!!
MERCI 🙂

 

[CHALET53]

Re : macro:cumul de valeurs saisies dans1 cellule.

bonjour,

Ce fichier récupéré sur le forum (je ne sais plus le nom de l'auteur) peut-il répondre à ta queston ?

a+

 

[pitr]

Re : macro:cumul de valeurs saisies dans1 cellule.

Désolée mais non cela ne m'aide pas parce que sur cet exemple les données à cumuler sont indiquées dans plusieurs cellules, moi j'ai un nombre de ventes saisies par jour et une seule cellule cumul par agence., comme ceci:


Jour Cumul

Paris 15 ? Je voudrais avoir 25, 10 du départ
+15
Et demain 8 ? Cette fois-ci il me faut 25+8


Aurais-tu une solution?
Merci de ton aide

 

[Compte Supprimé 979]

Re : macro:cumul de valeurs saisies dans1 cellule.

Salut Pitr,

Voilà un exemple de ce que l'on peut faire 😉

 

[pitr]

Re : macro:cumul de valeurs saisies dans1 cellule.

Désolée, BRUNO45, mais ton fichier excel est vide!!!

 

[Excel_lent]

Re : macro:cumul de valeurs saisies dans1 cellule.

Salut à tous,

Le fichier de Bruno n'est pas vide (Voir les macros).
Autre solution de cumul (en changeant les valeurs des 2 cellules).
@+

 

[benji41]

Re : macro:cumul de valeurs saisies dans1 cellule.

Bonjour,

Je voudrais savoir s'il est possible de faire la même chose mais au lieu de changer cette cellule à la "main", la valeur de la cellule se modifie grâce à une formule ?

Me concernant, j'utilise la fonction LOOKUP dans ma formule

Pour info le code utilisé

Option Explicit
Dim un%, deux%
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  un = Range("B2")
  deux = Range("B3")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
    If Target.Address = "$B$2" Then Range("B2") = un + Range("B2")
    If Target.Address = "$B$3" Then Range("B3") = deux + Range("B3")
  Application.EnableEvents = True
End Sub

Merci beaucoup !

Benji41