Excel Somme cellules formatées en couleur

Fermé
louisemi Messages postés 4 Date d'inscription dimanche 19 juin 2011 Statut Membre Dernière intervention 18 décembre 2018 - 19 juin 2011 à 17:33
 louisemi - 19 juin 2011 à 20:05
Bonjour,

Quelle formule pour compter le nombre de cellules dont le format de remplissage est de couleur rouge (ou vert, ou jaune ou .....;)
J'ai pensé à nb.si mais je n'ya arrive pas
Merci de m'aider
Cordialement
Louisemi



A voir également:

1 réponse

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
19 juin 2011 à 19:08
Salut le forum

Une fonction personnalisée (Il en existe plusieurs variantes)
Code à mettre dans un module VBA

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function

Ou encore sans connaitre la valeur de la palette des couleurs
Function SumByColor(PlageEntree As Range, CouleurPlage As Range) As Double 
Dim Cell As Range, TempSum As Double, ColorIndex As Integer 
Application.Volatile
      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

Mytå
0
Merci beaucoup, je vais essayer de me mettre à la programmation , j'en avais fait un peu mais il y a longtemps ! Voici l'occasion
Encore merci
Cordialement
Louisemi
0