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