je cherche à compter le nombre de commentaire dans toutes les feuilles de mon fichier, et que le résultat apparaissent dans une cellule, non dans une MsgBox, comme je l'ai vu dans un post sur le forum.
Re : compter nombre de commentaire dans un classeur
Bonjour, salut Pascal,
Mon travail :
Code:
Sub Macro1()
Dim sh As Object, NbCommentaires As Long
For Each sh In Sheets
NbCommentaires = sh.Comments.Count + NbCommentaires
Next
Sheets("Feuil1").Range("A1") = NbCommentaires
End Sub