Timestamp lorsqu'une cellule est modifiée via une formule (Excel)

J'ai besoin d'un timestamp une cellule adjacente dont la valeur change par la formule. En utilisant ceci comme exemple, j'ai besoin de la cellule adjacente à A1 sur la feuille 1 pour indiquer l'heure et la date à laquelle la valeur de la cellule a changé.

L'exemple que j'ai lié ci-dessus triggers une boîte de message lorsque la valeur de la cellule change via la formule (les events de la feuille de travail ne semblent pas reconnaître les modifications apscopes à une valeur de cellule lorsqu'elles contiennent une formule dont la valeur est modifiée en raison d'un changement de cellule ailleurs). Je ne veux pas la boîte de message, mais je veux un horodatage.

Pour simplifier, je publierai les instructions à cette question liée ici, toute aide supplémentaire avec cette question spécifique est appréciée.

Dans Sheet1 Cell A1, mettez cette formule

• Pouvez-vous dire à Excel de ne pas recalculer une cellule dont le contenu est basé sur un composant COM?
• Modifier la colonne de la date en fonction de la colonne de l'heure dans Excel
• Comment puis-je copyr une plage dans un classur temporaire et lui renvoyer une reference avec une fonction vba?
• Excel / VBA – Fonction pour renvoyer l'entier
• Réparer correctement le time de formatting 'hh: nn: ss' lorsque h = 0

=Sheet2!A1+1 

Maintenant, dans un module, collez ce code

 Public PrevVal As Variant 

Collez ceci dans la zone Code de la feuille

 Private Sub Worksheet_Calculate() If Range("A1").Value <> PrevVal Then MsgBox "Value Changed" PrevVal = Range("A1").Value End If End Sub 

Et enfin, dans la zone Code de ThisWorkbook, collez ce code

 Private Sub Workbook_Open() PrevVal = Sheet1.Range("A1").Value End Sub 

• Excel UDF – obtenant une VALEUR! erreur et pas sure pourquoi
• identificateur invalide vba
• Matlab – ActiveX Move Excel Sheet
• DataGridView affiche des numbers supplémentaires après l'import de la feuille Excel dans l'application Windows
• layout excellente de droite à gauche en python xlwt

 Range("B1").Value = Format(Now, "dd/mm/yyyy hh:mm:ss")