bonjour
regarde cette conversation <http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=5343&t=5343>
voilà le code du fichier joint à cette ficelle
Function BgColorcountif(SearchArea As Object, BgColor As Integer) As Integer
For Each cell In SearchArea
BgColorcountif = BgColorcountif + Abs(cell.Interior.ColorIndex = BgColor)
Next cell
End Function
Function BgColorSumif(SearchArea As Object, BgColor As Integer) As Integer
For Each cell In SearchArea
BgColorSumif = BgColorSumif + IIf(cell.Interior.ColorIndex = BgColor, cell, 0)
Next cell
End Function
Function BgColor(CkCell As Object)
BgColor = Abs(CkCell.Interior.ColorIndex)
End Function
bye
stephane