Reporter une valeur d'un jour a l'autre

Bonjour,

Je souhaiterai passer la valeur située dans la cellule A1 dans la cellule A2 à la fin de la journée et ainsi de suite pour me faire un historique sur plusieurs jours.

Si quelqu'un pouvait m'aider je l'en remercie par avance

Bonjour,

en fermant le fichier, çà copie la valeur A1 à la 1ère cellule vide colonne A

et enregistre

Dans le ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A65536").End(xlUp)(2) = Range("a1")
ActiveWorkbook.Save
End Sub

Amicalement

Claude.

Bonjour,

Je suis assez novice sur excel et je ne connais pas le ThisWorkbook et comment y accéder pour entrer la formule,si tu peux éclairer ma lanterne merci.

amicalement.

Gégé

Bonjour,

Tu fais : Alt+touche F11, ce qui t'ouvre le VBE

là, tu sélectionne à gauche le nom de ton fichier,

puis tu sélectionne ThisWorkbook et tu y colle mon code

C'est tout

Bonne journée

Claude.

C'est toujours moi,

J'ai copié ta formule comme tu m'a dit mais cela ne fonctionne qu'une fois,j'enregistre en quittant le fichier lorsque je l'ouvre a nouveau la valeur de la cellule A1 et bien reportée dans la cellule A2, si je remodifie la valeur dans la cellule A1 cela ne me la reporte pas dans la cellule A2 a la deuxième fermeture du fichier.

Je suis a nouveau obligé de remettre ton code.

Merci pour ton aide.

Gégé

Bonjour,

alors envoie une feuille avec exemple de ce que tu veux sur plusieurs jours

amicalement

Claude.

Je t'envoie un fichier de ce que je voudrai faire,j'espère que l'explication sera compréhensive et que tu le recevra.

Je te remercie pour le temps que tu passes a rechercher une solution.

Amicalement.

Gégé

https://www.excel-pratique.com/~files/doc2/KZKxdClasseur1.xlsx

Je pense que le fichier n'est pas parti la première fois je te le renvoie

Gégé

Bonsoir,

remplace le code précédent par

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Range("A1").Copy
    Range("A2").Insert Shift:=xlDown
    ActiveWorkbook.Save
End Sub

édit: si tu veux la date avec (colonne B)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Range("b1") = Date
    Range("A1:b1").Copy
    Range("A2").Insert Shift:=xlDown
    ActiveWorkbook.Save
End Sub

Bonne soirée

Claude.

Merci Claude,

Pour la solution j'ai pris la deuxième avec l'affichage de la date

Je te souhaite une bonne journée

Gégé