Microsoft 365 Calculer nombre de note avec "texte"

Mate59

XLDnaute Junior
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
 
Solution
VB:
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!

Mate59

XLDnaute Junior
VB:
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!
 

Discussions similaires

Réponses
16
Affichages
1 K

Statistiques des forums

Discussions
313 224
Messages
2 096 338
Membres
106 572
dernier inscrit
JM04082023!