XL 2019 compter des commentaires

[pascal21]

bonjour à tous
je cherche en vain la méthode en formule de préférence, qui permet de compter le nombre de cellules contenant le commentaire avec le mot "atelier"
j'ai essayé en VBA avec cette fonction proposée par JB mais je n'arrive pas à la faire fonctionner chez moi

=NbCmt(A1:B10;"atelier";"feuil2")

Function NbCmt(champ As Range, Cmt, Optional onglet)
  Application.Volatile
  If IsMissing(onglet) Then onglet = ActiveSheet.Name
  For Each c In Sheets(onglet).Comments
    If Not Intersect(Sheets(onglet).Range(champ.Address), c.Parent) Is Nothing Then
       If InStr(UCase(c.Text), UCase(Cmt)) > 0 Then n = n + 1
    End If
  Next c
  NbCmt = n
End Function

pouvez vous m'aider? merci

 

[sylvanu]

Bonjour Pascal,
Cette fonction marche correctement.
Peut être est ce l'implémentation qui n'est pas correcte dans votre fichier, ou encore la syntaxe utilisée.

 

[pascal21]

bonjour et merci
en fait je ne le mettais pas dans un nouveau module c'est sans doute, pour cela que ça fonctionnait pas
c'est résolu