Bonjour le forum
Je désire insérer un commentaire automatiquement qui me servira d’historique de contenu de cellule. Ce commentaire doit comprendre, la date de modification de cette cellule ainsi que le contenu de la cellule
Grâce au forum, j’ai glané ces quelques lignes qui insèrent la date mais pas le contenu de la cellule.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("D7:G150")) Is Nothing Then
On Error Resume Next
Target.AddComment " Modifié le : " & Format(Now, "dd/mm/yyyy ")
End If
End Sub
Si vous avez une solution, je suis preneur.
Merci beaucoup
Francis
Je désire insérer un commentaire automatiquement qui me servira d’historique de contenu de cellule. Ce commentaire doit comprendre, la date de modification de cette cellule ainsi que le contenu de la cellule
Grâce au forum, j’ai glané ces quelques lignes qui insèrent la date mais pas le contenu de la cellule.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("D7:G150")) Is Nothing Then
On Error Resume Next
Target.AddComment " Modifié le : " & Format(Now, "dd/mm/yyyy ")
End If
End Sub
Si vous avez une solution, je suis preneur.
Merci beaucoup
Francis