Excel Somme cellules formatées en couleur

louisemi Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
 louisemi -
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

Réponse 1 / 1
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
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
louisemi
 
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

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses