Comter le nombre du commntaire

Résolu
smartway14 Messages postés 822 Date d'inscription   Statut Membre Dernière intervention   -  
smartway14 Messages postés 822 Date d'inscription   Statut Membre Dernière intervention   -
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

3 réponses

Mike-31 Messages postés 18407 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

ou plus simplement :
ActiveSheet.Comments.Count
eric
0
smartway14 Messages postés 822 Date d'inscription   Statut Membre Dernière intervention   186
 
les deux macro marchent bien
merci infiniment à tous les deux.
0