comter le nombre du commntaire Résolu

Question

Bonjour,
j'ai créer ce macro pour compter le nombre des commentaires
Sub comptercomment()
Dim place As Object
Dim ctr As Integer
Dim N As Integer
Dim nbr As Integer
Set place=AceiveCel.CurrentRegion
nbr=place.Count
N=0
For ctr=1 To nbr
If place(ctr).Comment Is Nothing Then 
N=N
Else
N=N+1
End If
Next
MsgBox "le nombre des commentaire est:"&N
End Sub

mais ce macro compte seulement le nombre du commentaires dans la cellule active et je sollicite votre aide pour savoir le nombre des commentaire sur la feuille active.
et merci

Mike-31 · Answer

Salut,

Essayes comme ça

Sub comptercomment() 
counter = 0
    For Each x In ActiveSheet.UsedRange
        If Len(x.NoteText) > 0 Then counter = counter + 1
    Next
    MsgBox counter
End Sub

eriiic · Answer

Bonjour,

ou plus simplement :
ActiveSheet.Comments.Count
eric

smartway14 · Answer

les deux macro marchent bien 
merci infiniment à tous les deux.

Comter le nombre du commntaire

3 réponses

Discussions similaires

Newsletters