Somme des cases en couleur

  • Initiateur de la discussion Initiateur de la discussion mcj1997
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.

VB:
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 🙂
 
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,
 
Dernière édition:
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 :

Code:
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
 

Pièces jointes

Dernière édition:
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
 
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.
 

Pièces jointes

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
 
Re : Somme des cases en couleur

Bonsoir à tous,

Essayez cette formule en B7 (v1)
VB:
=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):
VB:
=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))
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
148
Réponses
8
Affichages
130
Réponses
12
Affichages
433
Réponses
5
Affichages
142
Réponses
10
Affichages
204
Réponses
5
Affichages
120
  • Question Question
Microsoft 365 Champs calculé TCD
Réponses
5
Affichages
155
Retour