Un raccourci pour afficher tout les commentaires

[anthoYS]

Bonjour,

Comment obtenir la macro qui, par un raccourci clavier nous ferait afficher tous les commentaires éditer jusqu'alors. Qu'ils soient tous visible.

Puis ci-possible, son inverse, ôter l'affichage les commentaires, juste qu'ils soient visibles par survol de la cellule active.

Et ceci, dans un gain de temps, pour éviter d'aller dans révision, etc.

Merci par avance.

 

[BOISGONTIER]

Re : Un raccourci pour afficher tout les commentaires

Bonjour,

Sub CommentIndicateur()
   Application.DisplayCommentIndicator = xlCommentAndIndicator
End Sub

Sub Indicateur()
   Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

Sub MasqueCmt()
  On Error Resume Next
  For Each c In ActiveSheet.Comments
    c.Visible = False
  Next c
End Sub

Sub AfficheCmt()
  On Error Resume Next
  For Each c In ActiveSheet.Comments
    c.Visible = True
  Next c
End Sub

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#Masque

JB