Garder la valeur d'une cellule

Bonjour,

J'ai un tableur sur lequel la date s'actualise tous les jours (B1) avec d'autres valeurs qui s'y associent (B2 et B4).

Voila tout : j'aimerais avoir un historique de ces dates et des valeurs associées dans un autre tableau juste à côté.

J'ai déjà les formules mais à chaque fois que la date s'actualise, la cellule où il y a l'historique s'actualise aussi au lieu de garder l'ancienne valeur et passer à la ligne suivante pour stocker les valeurs.

Si quelqu'un peut m'aider, un grand merci à lui...

Cordialement.


Macintosh_76

3 réponses

  1. Bonsoir

    La conservation des dates et valeurs associées ne peut se faire que grâce à une macro

    Je pense que ta date s'actualise avec la fonction AUJOURDHUI mais comment sont actualisées les valeurs en B2 et B4 ? manuellement ?

    Un exemple de fichier serait le bienvenu si tu veux qu'on adapte yune macro dessus, exemple à poster sur cjoint.com, faire créer un lien, le copier et revenir le coller ici

    Cdlmnt

    Via


    0
    1. Bonjour merci de votre réponse.

      Les valeurs de B2 et B4 sont actualisées avec la fonction « Action() »: ceux sont respectivement le gain et la variation du cours.

      Ainsi j’aimerais que dans le tableau historique s’affiche le gain et la variation en fonction de la date.

      cordialement 


      0
      1. Re

        Je ne connais pas la fonction ACTION mais j'ai vu qu'il existait la fonction HISTORIQUE.ACTIONS depuis la version Excel 365 qui établit justement l'historique entre deux dates

        https://www.excel-exercice.com/historique-des-cours-de-bourse-dans-excel/

        Sinon par macro :lancée manuellement

        1) Mettre les titres par ex en J1, K1, L1

        2) cliquer sur onglet en bas et Visualiser le code pour ouvrir éditeur VBA

        3) Insertion - Module et coller dans la page la macro suivante

        Sub histo()
        ligne = Columns(10).Find("*", , , , xlByColumns, xlPrevious).Row + 1 '1ere ligne vide en colonneJ
        Range("J" & ligne) = Range("B1")
        Range("K" & ligne) = Range("B2")
        Range("L" & ligne) = Range("B4")
        End Sub

        4) Fermer l'éditeur VBA

        5) Possible d'associer un bouton ou un raccourci-clavier pour lancer la macro plus facilement (sinon aller dans Développeur  - Macro - Exécuter)


        Cdlmnt

        Via


        0