veriti site des amis d'excel

Avec cette procédure, on va créer une nouvelle feuille et lister les commentaires de la feuille active ... le listing est réparti sur quatre colonnes avec le nom de la feuille, l'adresse de la cellule, la valeur de cette cellule et le texte du commentaire ...

Code à placer dans un module

Option Explicit

Sub Lister_Commentaire()
'VériTi
'http://www.excel.veriti.net
    Application.ScreenUpdating = False
    Dim Plage As Range, Cell As Range
    Dim Feuille As Worksheet, NouvFeuil As Worksheet
    Dim Lig As Long
    '*******************
    Set Feuille = ActiveSheet
    On Error Resume Next
    Set Plage = Feuille.Cells.SpecialCells(xlCellTypeComments)
    If Plage Is Nothing Then
        MsgBox "Il n'y a aucun commentaire sur la feuille : " & Feuille.Name
        Exit Sub
    End If
    Set NouvFeuil = Worksheets.Add
    NouvFeuil.Range("A1:D1").Value = Array("Feuille", "Cellule", "Valeur", "Commentaire")
    Lig = 1
    For Each Cell In Plage
        With NouvFeuil
            Lig = Lig + 1
            .Cells(Lig, 1).Value = Feuille.Name
            .Cells(Lig, 2).Value = Cell.Address(0, 0)
            .Cells(Lig, 3).Value = Cell.Value
            .Cells(Lig, 4).Value = Cell.Comment.Text
        End With
    Next Cell
    Application.ScreenUpdating = True
End Sub