Calculs selon couleur de cellule

Code VBA à utiliser :

Function CouleurCell(Cellule As Range)
'Permet d'identifier le code de la couleur d'arrière-plan d'une cellule
Application.Volatile 'Actualise les calculs du document
CouleurCell = Cellule.Interior.ColorIndex
End Function

Function CouleurPolice(Cellule As Range)
'Permet d'identifier le code couleur de la police utilisée dans une cellule
Application.Volatile 'Actualise les calculs du document
CouleurPolice = Cellule.Font.ColorIndex
End Function

Function NbCellCouleur(Plage As Range, NumeroDeCouleur%) As Long
' Renvoie le nombre de cellules de même couleur en arrière-plan
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
NbCellCouleur = NbCellCouleur + 1
End If
Next
End Function

Function SomCellCouleur(Plage As Range, NumeroDeCouleur%) As Long
' Renvoie la somme des cellules de même couleur en arrière-plan
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SomCellCouleur = SomCellCouleur + wCell
End If
Next
End Function


Function SomFontCouleur(Plage As Range, NumeroDeCouleur%) As Long
' Renvoie la somme des cellules de même couleur de police
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Font.ColorIndex = NumeroDeCouleur Then
SomFontCouleur = SomFontCouleur + wCell
End If
Next
End Function