Somme des cases en couleur

[mcj1997]

Bonsoir,

J'ai un fichier en PJ dans lequel je cherche une formule et non une macro qui permette de faire la somme des valeurs dans les cases de fond vert.

Merci d'avance,

 

[DoubleZero]

Re : Somme des cases en couleur

Bonjour, mcj1997, le Forum,

... je cherche une formule et non une macro...

Seule une macro peut fournir le résultat souhaité... me semble-t-il.

Sub Cellules_colorées_valeurs_totaliser()
    Dim compteur As Double
    Dim plage As Range
    Dim c As Range
    Set plage = Sheets("Feuil1").[d3:f9]
    [a1] = ""
    compteur = 0
    For Each c In plage
        If c.Interior.Color = 5296274 Then compteur = compteur + c.Value
    Next
    [a1] = compteur
End Sub

A bientôt 🙂

 

[mcj1997]

Re : Somme des cases en couleur

Message effacé contenu erroné.

 

[mcj1997]

Re : Somme des cases en couleur

Bonjour,

S'il n'y a pas de solution sans passer par une macro, je pense à un contournement. Dans l'hypothèse ou dans mon tableau du poste 1 ne figurerait qu'une case en verte serait t-il possible d'afficher en A1 le montant de la case ?

Merci d'avance,

 

[DoubleZero]

Re : Somme des cases en couleur

Re-bonjour,

Je n'ai pas LA solution 😕 pour le "contournement". Une autre personne, peut-être.

Bon courage et à bientôt 🙂

 

[natorp]

Re : Somme des cases en couleur

Bjr mcj1997 et doublezero

Pas de solution miracle, une fonction avec du code VBA, le total se met à jour automatiquement dès que l'on change une couleur de fond de la zone concernée :

Function SommeCouleurFond(champ As Range, couleurfond)
  Application.Volatile
  Dim c, temp
  temp = 0
  For Each c In champ
    If c.Interior.ColorIndex = couleurfond Then
      temp = temp + c.Value
    End If
    Next c
    SommeCouleurFond = temp
End Function

Cordialement, Gérard

 

[phlaurent55]

Re : Somme des cases en couleur

Bonjour à tous,

pour faire avancer le schmilblick ..........

c'est sans doute possible de faire la somme par formule mais il faudrait impérativement savoir pourquoi ces cellules sont de couleur verte


par exemple:
.......... est-ce qu'elles doivent être verte par rapport au contenu 😕
.......... par rapport à la date du jour 😕
.......... par rapport au contenu de la cellule qui précède 😕
.......... pour une autre raison 😕

à+
Philippe

 

[mcj1997]

Re : Somme des cases en couleur

Bonsoir,

La couleur verte est liée à une mise en forme conditionnelle.

Merci d'avance

 

[Gardien de phare]

Re : Somme des cases en couleur

Bonjour,

Alors mets un fichier avec les Mefc et on trouvera la formule qui somme selon les conditions de la Mefc.

D'ailleurs, on ne peut pas récupérer dans les propriétés d'une cellule la couleur issue d'une Mefc par Vba, voir démo dans le classeur joint.

 

[phlaurent55]

Re : Somme des cases en couleur

Re Bonjour à tous

Bonsoir,

La couleur verte est liée à une mise en forme conditionnelle.

Merci d'avance

ça on s'en doutait, ce n'est pas ce que j'ai demandé dans ma dernière réponse

il nous faudrait un fichier exemple qui reprend TOUT les éléments et explications nécessaires à la compréhension du problème

si la formule de la MFC prend en compte d'autre cellules, il est nécessaire de savoir lesquelles

à+
Philippe

 

[Dugenou]

Re : Somme des cases en couleur

Bonjour à tous,
Avec un somme.si ou un sommeprod qui reprendra les critères de la MFC ça doit être faisable
dans l'attente des critères...
Cordialement

 

[mcj1997]

Re : Somme des cases en couleur

Bonsoir

Fichier demandé en PJ.

Merci d'avance,

 

[mapomme]

Re : Somme des cases en couleur

Bonsoir à tous,

Essayez cette formule en B7 (v1)

=INDEX(DECALER($G$4:$H$9;11*($B$1=$E$12);0);EQUIV($B$5;particuliers;1); EQUIV($B$3;$G$3:$H$3;0))

Si les fourchettes des montants pour remise sont différentes entre particuliers (E4:F9) et professionnels (E15:F20), utilisez la formule suivante (v2):

=INDEX(DECALER($G$4:$H$9;11*($B$1=$E$12);0);EQUIV($B$5;DECALER(particuliers;11*($B$1=$E$12);0);1);EQUIV($B$3;$G$3:$H$3;0))

 

[mcj1997]

Re : Somme des cases en couleur

C'est parfait,

Merci