Prendre en compte la couleur d'une cellule

[Aurélien]

Bonjour,

Y-a-t-il un moyen de compter sur une plage le nombre de cellules selon leur couleur ? ex : = nb.si (a1:b5;rouge) ? Sachant que sous cette forme la formule ne fonctionne pas ... :-(

Merci

 

[Moa]

Oui bien sur que c'est possible.

Regardes avant hier et le jour précédent, il y a plusieurs réponses à ta demande.


@ +

Moa

 

[Moa]

Tiens trouvé sur http://ericrenaud.free.fr/

menu fonctions

Somme des cellules avec un motif rouge.
Cette fonction calcule la somme d'une plage en fonction de la
couleur du motif des cellules.


Le code

Code de la fonction SumByColor
Function SumByColor(PlageEntree As Range, CouleurPlage As Range) As Double
Dim Cell As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = CouleurPlage.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next
For Each Cell In PlageEntree.Cells
If Cell.Formula < > "" Then
If Cell.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + _
Cell.Value
End If
Next Cell
On Error GoTo 0
Set Cell = Nothing
SumByColor = TempSum
End Function




Les paramètres de la fonction

PlageEntree : Permet de sélectionner la plage à calculer.
CouleurEntree : Sélectionne la cellule servant de référence pour la couleur du motif.

@ +

Moa

 

[Aurélien]

Super. Merci.