Somme valeur cellules jaune puis cellules verte

H

hoerwind

XLDnaute Barbatruc

• 21 Février 2011

• #2

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.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 21 Février 2011

• #3

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. 🙂

 

Vote positif 0 Vote négatif

V

VVV

Guest

• 21 Février 2011

• #4

Re : Somme valeur cellules jaune puis cellules verte

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

 

Pièces jointes

• Classeur.xls

  20.5 KB · Affichages: 382
• Classeur.xls

  20.5 KB · Affichages: 407
• Classeur.xls

  20.5 KB · Affichages: 413

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 21 Février 2011

• #5

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

 

Vote positif 0 Vote négatif

V

VVV

Guest

• 21 Février 2011

• #6

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

 

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 21 Février 2011

• #7

Re: Re : Somme valeur cellules jaune puis cellules verte

Bonsoir à tous,
Bonsoir VVV,

Sur un exemple de Boisgontier :

Dans un module standard :

Code:

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)

Cliquez pour agrandir...

Klin89

 

Dernière édition: 21 Février 2011

Vote positif 0 Vote négatif