glabamirio
XLDnaute Nouveau
Bjr,
J'utilise cette macro pour compter les cellules d'une même couleur.
Par contre elle ne marche pas qd les cellules sont colorées par une mise en forme conditionnelle... Ce qui est assez gênant!
Qq'1 aurait-il une solution?
Merci par avance
Function SumColor(rColor As Range, rSumRange As Range)
''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com
'Sums cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell
SumColor = vResult
End Function
J'utilise cette macro pour compter les cellules d'une même couleur.
Par contre elle ne marche pas qd les cellules sont colorées par une mise en forme conditionnelle... Ce qui est assez gênant!
Qq'1 aurait-il une solution?
Merci par avance
Function SumColor(rColor As Range, rSumRange As Range)
''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com
'Sums cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell
SumColor = vResult
End Function