Si vous travaillez avec de très grands tableaux contenant beaucoup de commentaires, il est parfois plus clair d’écrire tous les commentaires en un seul morceau dans une liste et de consigner les adresses des cellules associées. Pour cette tâche, lancez la macro suivante:

Sub CommentairesDocumentation()

Dim Komm As Comment

Dim i As Integer

 On Error Resume Next

 For Each Komm In ActiveSheet.Comments

     i = i + 1

     ActiveSheet.Cells(i, 11) = Komm.Text

     ActiveSheet.Cells(i, 12) = Komm.Parent.Address

 Next

End Sub

Tous les commentaires de la feuille de calcul sont déterminés dans une boucle For Each. La propriété Cells se compose d’une valeur pour la ligne et d’une valeur pour la colonne. Les entrées de journal sont faites dans les colonnes K et L, de sorte que l’index de colonne des deux colonnes est 11 et 12. La variable i contient le pointeur de ligne, qui est augmenté de la valeur 1 pour chaque commentaire enregistré. Le texte du commentaire est enregistré d’une part et l’adresse de cellule du commentaire d’autre part. Lors de la détermination de l’adresse de cellule d’un commentaire, vous devez utiliser la propriété Parent, qui renvoie le parent de l’objet Comment. Avec l’aide de la propriété Address, vous pouvez enfin déterminer l’adresse de cellule du commentaire.

Sub CommentsDocument()

Dim Kom As Comment

Dim i As Integer

Dim e As Integer

Dim Blatt1 As Worksheet

Set Sheet1 = Sheets.Add

  On Error Resume Next

  For i = 1 To ActiveWorkbook.Sheets.Count

  On Error Resume Next

  For Each Kom In Sheets(i).Comments

      e = e + 1

      Blatt1.Cells (e, 1) = Kom.Text

      Sheet1.Cells (e, 2) = Kom.Parent.Address

  Next com

  Next i

End Sub