[XL-2007] Somme de cellules par couleurs [Résolu]

[roultabille]

Bonsoir,

Est-t'il possible de calculer des montants reconnu par leurs couleurs.
Ex: Somme des cellules jaunes, divisions ou multiplications d'une cellule verte par une bleu Etc:

Ces montants changent souvant de cellules mais pas de couleur et je dois reporter les calculs dans une autre feuille.

Merci d'avance de votre aide.

[fring]

Bonjour,

C'est réalisable mais il va falloir passer par un bout de code en VBA

[Pierre Fauconnier]

Bonjour

Voici une fonction qui permet cela

Code :

1
2
3
4
5
6
7
8
9
10
11
Function SommeSelonCouleurs(Plage As Range, Couleur As Long) As Double
  Application.Volatile
 
  Dim Cellule As Range
  Dim Somme As Double
 
  For Each Cellule In Plage
    If Cellule.Interior.Color = Couleur And IsNumeric(Cellule.Value) Then Somme = Somme + Cellule.Value
  Next Cellule
  SommeSelonCouleurs = Somme
End Function

Si tu t'aide d'une autre fonction pour récupérer la couleur de fond d'une cellule, tu peux combiner les deux

Code :

1
2
3
4
5
Function CouleurCellule(Cellule As Range) As Long
  Application.Volatile
 
  CouleurCellule = Cellule.Cells(1, 1).Interior.Color
End Function

Par exemple comme ceci

=SommeSelonCouleurs(A1:A5;CouleurCellule(E1))