Macro pour supprimer tous les commentaires dans un classeur, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x