Je cherche à compter le nombre de cellule d’une plage qui ont une couleur et aussi qui ont des données, mais des données qui sont différentes d’une cellule à l’autre. Comme par exemple dans l’image proposée, la réponse pour la couleur jaune serait 2.
Function CountColorNonVide(range_data As Range, criteria As Range) As Long
Application.Volatile
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor And datax.Value <> "" Then
CountColorNonVide = CountColorNonVide + 1
End If
Next datax
End Function
Function CountColor(range_data As Range, criteria As Range) As Long
Application.Volatile
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountColor = CountColor + 1
End If
Next datax
End Function