Quelle formule ?

Cluses74 Messages postés 243 Statut Membre -  
michel_m Messages postés 18903 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

3 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonjour,

    que veux tu dire par
    faire le cumul de A1+une variable d'une cellule A3
    0
    1. Cluses74 Messages postés 243 Statut Membre
       
      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
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. cluses74
       
      Re bonjour;
      Un historique des quantités et dates de saisies dans la cellule A3
      Merci
      0
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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