Comptage cellule couleur

[Jeromepoly]

Bonjour,

Je cherche à compter le nombre de cellules possedant la lettre "t" ET de couleur bleue.

Merci pour votre aide.

Jerome

[Daniel.C]

Bonjour,

Utilise la fonction :

Code :

1
2
3
4
5
6
7
8
Function TetBleu(Plage As Range) As Long
    Dim c As Range
    For Each c In Plage
        If c.Interior.ColorIndex = 33 And InStr(c.Value, "t") > 0 Then
            TetBleu = TetBleu + 1
        End If
    Next c
End Function

Heu, ça dépend aussi de ta nuance dee bleu.