Afficher tous les commentaires de la feuille active

Catégorie : Commentaires

Publié par veriland le 11-Aug-2013 16:00

Afficher tous les commentaires de la feuille active

Code à placer dans un module

 

Option Explicit

Sub Afficher_Tous_Les_Commentaires()
'VériTi
'http://www.excel.veriti.net
    Dim Cmt As Comments
    Dim C As Comment
    '*******************
    Set Cmt = ActiveSheet.Comments
    For Each C In Cmt
        C.Visible = True
    Next
End Sub