Supprimer tous les commentaires de la feuille active
Code à placer dans un module
OptionExplicit
Sub Supprimer_Tous_Les_Commentaires() 'VériTi 'http://www.veriti.fr Dim Boucle AsVariant '******************* For Boucle = ActiveSheet.Comments.Count To 1 Step -1 ActiveSheet.Comments(Boucle).Delete Next Boucle EndSub
Date de création : 24/05/2005 - 19:18
Dernière modification : 25/05/2005 - 21:06
Catégorie : Commentaires Page lue 3222 fois