Bonjour
A tester avec deux autres fonctions perso
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
question excel.xlsm (24,5 Ko)