Comptage nombre de cellules avec un fond particulier

[Orientationis]

Bonjour,

Je voudrais compter toutes les cellules comportant une fond jaune.

Comment puis-je faire?

 

[jhofman]

Re : Comptage nombre de cellules avec un fond particulier

et voila
tu sélectionne une zone et tu active le code suivant

Sub testcouleurJaune()
For Each cell In Selection
j = j + 1
If cell.Interior.ColorIndex = 36 Or _
cell.Interior.ColorIndex = 6 _
Then
i = i + 1
End If
Next
MsgBox i & " cellules jaunes sur " & j & "selectionnées"
End Sub

 

[RENAUDER]

Re : Comptage nombre de cellules avec un fond particulier

Bonjour,
Tu peux utiliser une fonction personnalisée.
Dans l'exemple c'est le jaune soutenu qui mis comme valeur (6)

Function CelFondByColor(PlageEntree As Range)
    Dim TempSum As Integer
    Application.Volatile
    MyColorIndex = 6
    TempSum = 0
    For Each Cell In PlageEntree
        If Cell.Interior.ColorIndex = MyColorIndex Then TempSum = TempSum + 1
    Next Cell
    Set Cell = Nothing
    CelFondByColor = TempSum
End Function

 

[Orientationis]

Re : Comptage nombre de cellules avec un fond particulier

Merci beaucoup