Comment masquer tous les commentaires ?

[Windfly]

Re bonjour à tous

Connaissez vous une fonction qui permette de masquer tous les commentaires
d'une feuille?
Je ne peux pas me pemettre faire l'opération manuellement sur environ 300
cellules.

Merci d'avance pour votre aide qui me sera précieuse.

Guillaume

 

[PascalXLD]

Bonjour

essaies cette macro qui te masque tous tes commentaires de la feuille active

Sub MasquerCommentaire()

Dim com As Comment
For Each com In ActiveSheet.Comments
com.Visible = False
Next
End Sub

Bon courage

 

[windfly]

Super!

Merci beaucoup.

Bonne soirée

 

[2passage]

Bonjour,

A toutes fins utiles, il y a aussi

Range(machin).ClearComments

Pour régler leur cas de façon définitive, à ces vilains commentaires... :evil: :evil:

A+

 

[windfly]

Super!

Merci beaucoup.

Bonne soirée