Discussion :

[Yapluka]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

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 (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

[Yapluka]

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