compter nombre de commentaire dans un classeur

[hyundai]

Bonjour à tous,

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.

merci d'avance de votre aide

christophe

 

[PascalXLD]

Re : compter nombre de commentaire dans un classeur

Bonjour

pour mettre le nbre de commentaire dans la feuil1 cellule A1

Sub Macro1()
For Each ws In Worksheets
    For Each c In ws.Comments
        x = x + 1
    Next
Next
Sheets("Feuil1").Range("A1") = x
End Sub

 

[job75]

Re : compter nombre de commentaire dans un classeur

Bonjour, salut Pascal,

Mon travail :

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

A+

 

[PascalXLD]

Re : compter nombre de commentaire dans un classeur

RE

Bah oui mais c'est bien sûr

Pourquoi boucler alors qu'il y a le count qui existe

Hyundai, la solution de Job est bien meilleure

 

[hyundai]

Re : compter nombre de commentaire dans un classeur

deja, merci a vous deux, j'essaye ça de suite......

 

[hyundai]

Re : compter nombre de commentaire dans un classeur

Génial, tip top, rapide et efficace.

Encore merci a tout deux........................