Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.