Somme valeur cellules jaune puis cellules verte

[VVV]

Bonjour,

Je cherche une formule me permettant de calculer la somme des valeurs qui se situent dans les cases jaunes de mon tableau, et même chose pour les valeurs des cases vertes.

Chaque cellule contient un chiffre d'affaires mais les deux couleurs différentie l'action porté sur les sociétés concernées et je dois faire un total de ces chiffres d'affaires sur ces deux actions différentes, jaune et verte.

Pouvez-vous m'aider svp c'est très urgent!! Pour demain en fait!! Merci d'avance.

 

[hoerwind]

Re : Somme valeur cellules jaune puis cellules verte

Bonjour et bienvenue sur le forum,


Avec un petit exemple en pièce jointe, ou plus simplement la raison pour laquelle certaines cellules sont jaunes et d'autres vertes, ce serait bien facile pour essayer de t'aider.

 

[Guest]

Re : Somme valeur cellules jaune puis cellules verte

Bonjour,

Regarde en bas de cette page dans 'discussion similaires' et faire une recherche sur le forum. C'est une question maintes fois traitée.

A+

[Edit]Salut Hoerwind. 🙂

 

[VVV]

Re : Somme valeur cellules jaune puis cellules verte

Oui, voici le classeur en question, ci-joint.

 

[Hippolite]

Re : Somme valeur cellules jaune puis cellules verte

Bonjour,
Tu as toutes les infos nécessaires sur ce fil :
157517-comptage-automatique-des-case-en-fonction-de-leur-couleur

 

[VVV]

Re : Somme valeur cellules jaune puis cellules verte

Merci, par contre je ne souhaite pas connaitre le nombre de cellules qui sont jaune ou verte mais je dois obtenir un total des montants qui se situent dans ces cellules jaune puis dans les verte

 

[klin89]

Re: Re : Somme valeur cellules jaune puis cellules verte

Bonsoir à tous,
Bonsoir VVV,

Sur un exemple de Boisgontier :

Dans un module standard :

Function SommeCouleurFondRef(champ As Range)
  Application.Volatile
  Dim c, temp
  temp = 0
  For Each c In champ
    If c.Interior.ColorIndex = 6 Then 'ici le jaune
       If IsNumeric(c.Value) Then temp = temp + c.Value
    End If
  Next c
  SommeCouleurFondRef = temp
End Function

La fonction retranscrite dans ta cellule :

=SommeCouleurFondRef(B6:S22)

Klin89