Lister les commentaires d'un classeur

Bonjour,

J'aurais besoin de votre aide pour un peu de VBA.

Il faudrait que je liste tous les commentaires de mon classeur dans une feuille, en récupérant les info suivant: classeur, texte de la cellule, texte du commentaire.

Merci d'avance de votre aide.

A+

Bonjour,

voici un début de piste,

Sub Test_Comments()
For Each cmt In Sheets("Feuil1").Comments
 x = x + 1
  With Sheets("Feuil1")
   .Cells(x, 1) = cmt.Parent.Address
   .Cells(x, 2) = cmt.Text
  End With
Next
End Sub

Merci sabV,

Ça fonctionne par contre sais tu comment appliquer ça sur toutes les feuilles ?

Est il possible de récupérer en plus du commentaire, le contenu de la cellule ?

Bonjour,

à tester,

Sub Test_Comments()
 For Each f In Worksheets
  If f.Name <> ActiveSheet.Name Then
    For Each cmt In f.Comments
     x = x + 1
      With ActiveSheet
       .Cells(x, 1) = f.Range(cmt.Parent.Address)
       .Cells(x, 2) = cmt.Text
      End With
    Next
  End If
 Next
End Sub

Merci beaucoup ça marche super bien !

J'ai juste ajouter le nom de la feuille.

Sub Test_Comments()
 For Each F In Worksheets
  If F.Name <> ActiveSheet.Name Then
    For Each cmt In F.Comments
     x = x + 1
      With ActiveSheet
       .Cells(x, 1) = F.Name
       .Cells(x, 2) = F.Range(cmt.Parent.Address)
       .Cells(x, 3) = cmt.Text
      End With
    Next
  End If
 Next
End Sub

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!