XL 2019 compter des commentaires

pascal21

XLDnaute Barbatruc
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
VB:
=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
 

Discussions similaires