Faire la somme de cellules de deux couleurs
Résolu
FREDERIQUE94
Messages postés
19
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
Je veux faire la somme de 2 couleurs dans une colonne :
SOMME_SI_COULEUR(F6:F179;$B$191.$B$192)
la formule ne fonctionne pas. Je ne sais pas comment mettre les 2 couleurs.
F6:F179 = plage concernée
$B$191 = la case avec la couleur jaune
$B$192 = la case avec la couleur verte
je veux faire la somme de toutes les cellules jaunes ou vertes
Merci beaucoup pour votre aide
Je veux faire la somme de 2 couleurs dans une colonne :
SOMME_SI_COULEUR(F6:F179;$B$191.$B$192)
la formule ne fonctionne pas. Je ne sais pas comment mettre les 2 couleurs.
F6:F179 = plage concernée
$B$191 = la case avec la couleur jaune
$B$192 = la case avec la couleur verte
je veux faire la somme de toutes les cellules jaunes ou vertes
Merci beaucoup pour votre aide
7 réponses
-
Bonjour à tous
Puisque la couleur vient d'une MFC, il n'y a plus besoin de macro
https://www.cjoint.com/?3LlmmrOUM4V
bonne suite -
Bonjour,
Est-ce qu'il y a une règle qui définit les couleurs des cellules appartenant à cette plage ?
-
Bonjour,
Oui, j'ai une règle qui dit si valeur = à 0 --> fond jaune et une autre qui dit si valeur >0 alors fond vert et si valeur <0 alors fond jaune et police rouge gras.
Merci -
Bonjour,
Sans le code de ta fonction difficile de savoir ce qu'elle veut en paramètre...
On peut supposer qu'on lui passe une seule couleur :
=SOMME_SI_COULEUR(F6:F179;$B$191) + SOMME_SI_COULEUR(F6:F179;$B$192)
La prochaine fois dépose un fichier exemple sur cjoint.com et colle ici le lien. C'est plus simple pour nous et tu es plus sûr que la réponse soit adaptée.
eric
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Comme tes couleurs sont générées par des mises en forme conditionnelles, le comptage ne peut se faire que par les valeurs ayant générées la couleur
Option Explicit Sub recenser_svt_couleur() Dim Cellule As Range, Plage As Range Dim Nbre_rouge As Integer, Nbre_jaune As Integer, Nbre_vert As Integer Application.ScreenUpdating = False Set Plage = Range("F6:F179") For Each Cellule In Plage If Cellule <> "" Then Select Case Cellule.Value Case Is < 0 Nbre_rouge = Nbre_rouge + 1 Case Is = 0 Nbre_jaune = Nbre_jaune + 1 Case Is > 0 Nbre_vert = Nbre_vert + 1 End Select End If Next 'ADRESSES DE RESTITUTION A ADAPTER Range("B193") = Nbre_rouge Range("B191") = Nbre_jaune Range("B192") = Nbre_vert End Sub
edit12:18h: ajouté condition cellule vide
Michel -
Merci pour les réponses, mais je n'ai pas tout compris dans la macro à créer ci-dessus envoyée par Michel.
Le fond est jaune et vert et parfois le texte est rouge sur fond jaune.
Est-ce que c'est bien correct dans la macro ?
Et que signifie "edit12:18h: ajouté condition cellule vide ?
Merci encore à tous -
