Microsoft 365 Calculer nombre de note avec "texte"

[Mate59]

Bonjour à tous,

Après avoir fait plusieurs recherches, je viens vers vous car j'aimerai calculer le nombre de cellule contenant des notes et plus précisément des notes qui contiennent un mot spécifique.

J'espère que cela est possible en passant par un simple calcul dans une cellule au même titre qu'une fonction NB.SI et donc ne pas passer par le codage VBA.

Merci d'avance pour vos réponses

 

[patricktoulon]

re
@Franc58

Sub test()
    Dim cel As Range, count&
    For Each cel In ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
        count = count + Abs(InStr(1, cel.Comment.Text, "toto") > 0)
    Next
    MsgBox "il y a " & count & " commentaires qui contiennent le mot ""toto"""
End Sub

 

[Mate59]

Dim plage As Range
    Dim cell As Range
    Dim compteur As Integer
   
    Set plage = ActiveSheet.Range("C6:Q6")
   
    compteur = 0
   
    For Each cell In plage
        If Not cell.Comment Is Nothing Then
            If InStr(1, cell.Comment.Text, "absence", vbTextCompare) > 0 Then
                compteur = compteur + 1
            End If
        End If
    Next cell

    ActiveSheet.Range("AO6").Value = compteur

Bonjour,

J'ai réussi à faire ce que je voulais faire via ce code.

Merci à tous pour vos réponses!

 

[DJunqueira]

Solution avec formule.

=SOMME(--(SIERREUR(CHERCHE("VVA";A1:A7);0)>0))