Date de modification sur modif du commentaire d'une cellule

Bonjour,

Je souhaite afficher dans une feuille la date de dernière modification intervenue sur le classeur.

Pour cela, dans 'ThisWorkbook', j'ai codé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim modif As Boolean   Private Sub Workbook_BeforeClose(Cancel As Boolean) If modif = True Then Sheets("Suivi").Range("B5").Value = "Dernière mise à jour : " & Format(Date, "dd mmm yyyy") & " à " & Format(Time, "hh:mm") End If End Sub   Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) modif = True End Sub

---

Ce code fonctionne très bien lorsqu'on modifie le contenu d'une cellule, mais ne fonctionne pas quand on modifie le commentaire (annotation) d'une cellule.

En effet, dans le cas d'une modification de commentaire, la procédure "SheetChange" n'est pas exécutée.

Merci de votre aide

Premièrement tu doit être le premier post que je vois ou la balise code n'ets pas utilisé et ou le code ne pique pas les yeux. Bravo, mais pour la suite utilise les :tagcode: (regarde tout en bas du premier sujet du forum si tu ne voi xpas comment faire)


Sinon pour ton problème j'ai un peu chercher et je ne voi pas le worksheet change ne se déclenche que quand le contenu ede la cellule est modifié ce n'est donc sans doute pas la solution.
J'ai quand même une idée
Je n'utilise pas souvent les commentaire mais a chaque fois que je l'ai fait il fallait sélectionner une cellule. Si c'est bien le cas pourquoi ne pas utiliser l'évènement SelectionChange, a chaque changement de sélection tu stock quelque part le commentaire de la cellule et quand tu rechange de sélection si le commentaire a été modifié tu met modif a true

Voila j'espère que ca te mettra sur une piste

Merci pour ta réponse, je vais chercher dans ce sens