Quelle formule ?

Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Je voudrai dans une cellule A1 faire le cumul de A1+une variable d'une cellule A3. Y a t il une fonction particulière ?
Un grand merci à celui ou celle qui me donnera la solution

A voir également:

3 réponses

Mike-31 Messages postés 18406 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Bonjour,

que veux tu dire par
faire le cumul de A1+une variable d'une cellule A3
0
Cluses74 Messages postés 240 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour
A chaque fois que je change la valeur de A3 , A1 reprend le résultat précédant résultat auquel il ajoute la valeur de A3 avec si possible un historique. Est ce plus clair cette fois ci?
Un grand merci et A+
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour

A priori, cela ne peut de faire que par une macro événementielle.....

avec si possible un historique
c'est à dire? quoi, où,toutes les dates et/ou heurse ou le dernier moment...... sans boule de cristal.....

EDIT 11:03 h

en attendant, proposition de macro à installer dans le module feuille concerné de VBE
 Option Explicit
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" And IsNumeric(Target) Then
Range("A1") = Range("A1") + Target
End If
End Sub

0
cluses74
 
Re bonjour;
Un historique des quantités et dates de saisies dans la cellule A3
Merci
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
en C1 il est inscrit "date" et D1 "quantité"


Option Explicit
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligvid As Integer
If Target.Address = "$A$3" And IsNumeric(Target) Then
Range("A1") = Range("A1") + Target
ligvid = Columns("C").Find("", Range("C1")).Row
Cells(ligvid, "C") = Date
Cells(ligvid, "D") = Target
End If
End Sub


0