Après un certain temps, un classeur peut accumuler un certain nombre de commentaires avec lesquels vous pouvez expliquer certains faits plus en détail, fournir des informations supplémentaires importantes sur les calculs ou également enregistrer certaines entrées. Ces commentaires sont très importants pour vous; ils peuvent ne pas l’être pour les autres. Si vous souhaitez rendre vos classeurs accessibles à d’autres personnes et conserver les commentaires pour vous, faites une copie du classeur et utilisez la macro suivante  pour supprimer tous les commentaires.

Sub  SupprimerTousLesCommentaires()

Dim i As Integer

Dim lescommentaires As Comment

 For i = 1 To Sheets.Count

  Sheets(i).Activate

  For Each lescommentaires In Sheets(i).Comments

      lescommentaires.Delete

  Next lescommentaires


 Next i

End Sub

Définissez d’abord une variable du type de données Comment. Parcourez ensuite le classeur de l’avant vers l’arrière et supprimez tous les commentaires à l’aide de la méthode Delete.