Supprimer les commentaires
Catégorie : Commentaires
Publié par veriland le 12-Aug-2013 21:10

Supprimer tous les commentaires de la feuille active
 

Code à placer dans un module

module

 
Option Explicit

Sub Supprimer_Tous_Les_Commentaires()
'VériTi
'http://www.excel.veriti.net
Dim Boucle As Variant
'*******************
For Boucle = ActiveSheet.Comments.Count To 1 Step -1
    ActiveSheet.Comments(Boucle).Delete
Next Boucle
End Sub