• Initiateur de la discussion Initiateur de la discussion tinet
  • 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 couleur

Bonjour à tous,

Ci joint un exemple du forum (Mr Boisgontier) parmi une multitude d'exemples sur le site

JHA
 

Pièces jointes

Re : Somme couleur

Bonjour le fil 😉

Le mieux serait peut-être de nous joindre le fichier non !?

Comment veux-tu que l'on puisse t'aider sans savoir exactement ce que tu veux 😛

A+
 
Re : Somme couleur

Bonjour,

Voici le fichier en vert la formule sur feuil1 et Feuil2

A+
 

Pièces jointes

Re : Somme couleur

Re à tous,

ou encore
=SOMMEPROD(((G5:G20)*(couleurfond(G5:G20)=6))+((H5:H20)*(couleurfond(H5:H20)=6)))

ou

=SOMMEPROD((G5:H20)*((couleurfond(G5:G20)=6)+(couleurfond(H5:H20)=6))/2)

ou avec les "a"
=SOMMEPROD(($F$5:$F$20="a")*(G5:H20)*((couleurfond(G5:G20)=6)+(couleurfond(H5:H20)=6))/2)
=SOMMEPROD(($F$5:$F$20="a")*(((G5:G20)*(couleurfond(G5:G20)=6))+((H5:H20)*(couleurfond(H5:H20)=6))))
JHA
 
Dernière édition:
Re : Somme couleur

Salut mon JC

Je crois comprendre que notre ami souhaite "sommer les couleurs" de deux colonnes
Je pense que tu as tout à fait raison 😉

Mais on peut même extrapoler en se disant qu'il souhaite le faite pour la lettre "a" par ex.
Code:
=SOMMEPROD(((F5:F20="a")*(couleurfond(G5:G20)=6)*(G5:G20))+((F5:F20="a")*(couleurfond(H5:H20)=6)*(H5:H20)))

A+
 
Re : Somme couleur

Re Bruno,

En A2, C2, E2 mettre les couleurs.

Colonne A nombres et couleur - Colonnes C et E idem et tu test la fonction

Ici la fonction avec ajout d'une condition:

Code:
Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant
'*********************************************************
' Effectuer la somme des cellules en couleur *
'*********************************************************
Dim Cel As Range
Dim Som As Double

If PlageCouleur.Cells.Count > 1 Then
SOMME_SI_COULEUR = CVErr(xlErrValue)
Exit Function
End If
For Each Cel In PlageSomme
If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel
Next
SOMME_SI_COULEUR = Som
If PlageCouleur.Interior.ColorIndex < 1 Then: SOMME_SI_COULEUR = ""
End Function

Ne me dit pas que c'est compliqué 😉


A+ 😎


Amicalement
Lone-wolf
 
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

  • Question Question
Microsoft 365 couleur et ligne
Réponses
6
Affichages
293
Réponses
7
Affichages
689
Réponses
19
Affichages
708
  • Question Question
Microsoft 365 agrandir la liste
Réponses
21
Affichages
661
Réponses
4
Affichages
221
Retour