[Fonction] Compter les cellules avec commentaire

Ataraxie -  
 Ataraxie -
Bonjour à tous,

Je susi à la recherche d'une fonction excel, me permettant de calculer le nombre de cellule avec un commentaire dans une plage donnée,

Merci par avance pour votre aide,

3 réponses

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Fonction personnalisée à mettre dans un module (ALT+F11 pour ouvrir Editeur puis Insertion et Module - Copier coller la macro et fermer éditeur
    La fonction s'utilise comme toute fonction excel en utilisant son nom, dans une cellule mettre =nb_com()
    Function nb_com()
    Set f = ActiveSheet
      For Each c In f.Comments
         nc = nc + 1
        Next c
      nb_com = nc
    End Function


    Cdlmnt
    Via
    0
  2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    ou bien :
    Function nbComments(plage As Range) As Long
    Dim c As Range
    For Each c In plage
    If Not c.Comment Is Nothing Then nbComments = nbComments + 1
    Next c
    End Function

    Syntaxe : =nbComments(B3:D7)
    Faire F9 pour rafraichir, la rendre volatile n'y changerait rien

    eric

    0