enrgistrer dans une colonne la valeur d'une cellule

[pascal21]

bonjour à tous
j'ai une cellule feuil1 B5
sa valeur change lors de calculs
je cherche le moyen d'enregistrer la valeur dans une colonne afin de garder un historique des changements de valeurs
je vois ça en macro à a fermeture du classeur ou je ne sais pas encore quel évennement
donc si la valeur change enregistrer dans une colonne d'une autre feuille cette nouvelle valeur
j'ai une petite (toute petite idée ) de comment faire mais je ne saurais pas écrire la macro sans erreur
merci de votre aide

 

[nak]

Re : enrgistrer dans une colonne la valeur d'une cellule

Bonjour,

Voici un petit code qui s'exécute à l'ouverture du fichier, on peut très bien le passer à la fermeture :

Sub sauve()

NextRow = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1

' Ecriture données de base
Sheets("Feuil2").Cells(NextRow, 1) = Range("E1").Value
Sheets("Feuil2").Cells(NextRow, 2) = Date
Sheets("Feuil2").Cells(NextRow, 3) = Time

End Sub

Je te joins également un exemple.

A+

 

[Gardien de phare]

Re : enrgistrer dans une colonne la valeur d'une cellule

Bonjour,

Un genre...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil2.Range("A1").Value = Feuil1.Range("C6").Value
End Sub

 

[DoubleZero]

Re : enrgistrer dans une colonne la valeur d'une cellule

Bonjour, pascal21, le Forum,

Un exemple en pièce jointe.

A bientôt

P. S. : bonjour, nak, Gardien de phare

 

[pascal21]

Re : enrgistrer dans une colonne la valeur d'une cellule

bonjour et merci pour votre aide
nak et double zéro le petit plus avec la date je n'y avait pas pensé bien vu
gardien de phare

Bonjour,

Un genre...
Code vba:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil2.Range("A1").Value = Feuil1.Range("C6").Value
End Sub

mais alors très éloigné comme genre
merci quand même

 

[Gardien de phare]

Re : enrgistrer dans une colonne la valeur d'une cellule

Re,

Éloigné de quoi ?

 

[pascal21]

Re : enrgistrer dans une colonne la valeur d'une cellule

Re,

Éloigné de quoi ?

de ma demande