Additionner des cellules de 3 couleurs différentes

Bonjour,

Comment simplifier ma formule qui additionne des cellules de 3 couleurs différentes?

Merci par avance.

Bonjour Alain56

Ce n'est pas possible à moins de créer sa propre fonction en VBA, celle d'XLP ne peut contenir qu'une seule couleur
https://excel-pratique.com/fr/fonctions-complementaires/somme-si-couleur

Ou alors vous parlez de son utilisation avec le numéro de couleur , vous devriez pourvoir faire

=somme.si.couleur(A1:A10;no_couleur(A1))+somme.si.couleur(A1:A10;no_couleur(A2))somme.si.couleur(A1:A10;no_couleur(A9))

A+

Bonjour,

combien de couleur ne faut-il pas compter ?
Vous pourriez faire somme de tout moins la somme de la couleur à ne pas compter.

@ bientôt

LouReeD

Merci LouReeD

Mon exemple est un cas d'école .

En fait, j'ai beaucoup plus de couleur à ne pas comptabiliser dans mon fichier ......

Cordialement

Bonjour

En retour un exemple

Merci.Joco7915

En fait ,je cherche une fonction (Hors VBA) qui additionne les 3 couleurs dans une seule cellule.

Cordialement

D'après moi il n'existe pas de formule pour cela .

Pas possible sans VBA...

re,

@joco7915, normallement il faut ajouter "Displayformat" pour les couleurs en MFC mais cela ne fonctionne pas dans une fonction ....

Bonjour,

la question alors si pas de VBA et autre : qui met les couleurs dans les cellules ?

Si ces dernières sont mises par l'utilisateur qui inscrit les valeurs, alors une action supplémentaire dans la colonne B ne serait pas chronophage.
Une valeur de type 1 ou 0 en fonction que la valeur devrait être prise en compte ou pas, et alors la formule pourrait être un simple SOMME.SI, avec en condition la colonne B.

Si les couleurs viennent d'une MFC, alors il faut reprendre cette condition dans la formule afin d'additionner ou pas les valeurs.

@ bientôt

LouReeD

Bonjour,

Un essai sans VBA mais avec des colonnes masqués

Slts

Merci à LouReeD et boss_68 pour vos réponses .

En fait ma demande était de pouvoir simplifier ma formule....

Vos solutions fonctionnent très bien mais je crois qu'elles sont un petit peu plus compliquées (sans VBA)

Je me résigne donc à garder ma formule Initial.

Merci encore à tous ceux qui m'ont aidé et bien cordialement à tous.

Bonsoir,

si cette formule est compliquée : =SOMME.SI(B1:B10;1;A1:A10), alors je suis un expert en formule Excel !

Non la formule n'est pas compliquée, ce qui est peut-être compliqué c'est de demander à la personne qui renseigne les données et les couleurs d'indiquer si elle sera également à prendre en compte pour l'addition suivante (1) ou pas (0) en colonne B.

Je me doute que c'est un fichier "exemple", mais sans savoir d'où viennent ces chiffres et ces couleurs, le tout sans VBA ni pack supplémentaires, le fait de mettre un 1 ou un 0 n'est pour moi pas compliqué et SOMME.SI non plus.

Exemple d'une formule compliquée (et encore...) :
=SOMMEPROD((INDIRECT("Planning!L3C" & (COLONNE()-1)*4+1 & ":L33C" & (COLONNE()-1)*4+1;FAUX)="AH")*(INDIRECT("Planning!L3C" & ((COLONNE()-1)*4) & ":L33C" & ((COLONNE()-1)*4);FAUX)<>"V"))

Si la fonction du pack vous convient et que le fichier n'a pas vocation à voyager sur plusieurs postes sur lesquels ce pack ne serait pas installé, alors pour une cellule avec une formule "un peu compliqué" je pense qu'Excel devrait pouvoir s'en sortir !

@ bientôt

LouReeD

Bonjour Alain56, Le Fil,

Sans VBA, il te faut créer une matrice des couleurs utilisées dans la feuille de calcul.

Voir photo ci-dessous. Impératif: la formule de calcul total doit avoir un fond différent des autres couleurs. Sinon le total sera repris avec l'erreur cellules circulaires.

La matrice jaune à rouge contient la formule Xlp pour chaque couleur en ligne 2, colonne E à H. Passer par le gestionnaire de Noms pour définir chaque formule Xlp selon sa couleur. E2 sera Jaune... Etc..

En zone totale, il suffira de taper le nom de la couleur ou des couleurs à additionner. Ou si l'on souhaite par soustraction de faire le total des lignes colonne A - la couleur à soustraire.

Merci X Cellus

Hello,

Pourquoi tu veux absolument sans VBA alors que tu utilises Somme_Si_Couleur qui est dans un complément VBA xlam ?

Si c'est seulement pour ne pas avoir le code VBA dans le classeur , on te crée un complément VBA xlam avec la fonction VBA qui va bien.

Dans la fonction Somme_Si_Couleurs on peut mettre jusqu'à 5 couleurs : la première est obligatoire , les autres sont optionnelles.

Ami calmant, J.P

En pièce jointe un zip qui comprend un complément xlam (Addin-JP.xlam) qui contient 3 fonctions :

1 - Somme_Si_Couleurs(plage As Range, couleur1 As Long, Optional couleur2 As Variant, _

Optional couleur3 As Variant, Optional couleur4 As Variant, _

Optional couleur5 As Variant)

Additionne les nombres se trouvant dans les cellules de la plage qui ont une couleur qui se trouve dans les paramètres suivants ( de 1 à 5 couleurs Max)

2 - Somme_Si_CouleursR(plage As Range, cell1 As Variant, Optional cell2 As Variant, _

Optional cell3 As Variant, Optional cell4 As Variant, _

Optional cell5 As Variant))

Additionne les nombres se trouvant dans les cellules de la plage qui ont une couleur présente dans les cellules dans les paramètres suivants ( de 1 à 5 couleurs Max)

3 - ColorBack(cellule As Range)

Donne la valeur numérique de la couleur de fond d'une cellule.

Le complément Addin-JP.xlam est à installer dans le répertoire Addins de l'utilisateur :

C:\Utilisateurs\<NomUtilisateur>\AppData\Roaming\Microsoft\AddIns

Il faut l'activer dans l'onglet Développeur en cliquant sur Compléments Excel et en cochant le complément ou dans Options/Compléments cliquer sur le bouton Atteindre (Compléments Excel) et cocher le complément.

On peut mettre aussi l'Addin dans le répertoire du classeur.

Ami calmant, J.P

Merci pour le travail Jurassic Pork.

Effectivement, c'est une solution Intéressante .

Je vais l'étudier Et probablement l'utiliser.

Bien cordialement à tous ceux qui ont répondu à ma demande

Bonjour

une proposition une fonction VBA COULEUR_PLAGE qui détermine la valeur de la couleur de toutes les cellules de la sélection (utilisable dans LAMBDA, MAP, REDUCE...)

Function COULEUR_PLAGE(Plage As Range) As Variant
    Dim Couleur() As Variant
    Dim i As Long, j As Long

    Application.Volatile

    ReDim Couleur(1 To Plage.Rows.Count, 1 To Plage.Columns.Count)

    For i = 1 To Plage.Rows.Count
        For j = 1 To Plage.Columns.Count
            Couleur(i, j) = Plage.Cells(i, j).Interior.Color
        Next j
    Next i

    COULEUR_PLAGE = Couleur
End Function

Exemple d'utilisation pour déterminer le nombre de cellules de la même couleur que celles d'une autre plage

=SOMME(N(ESTNUM(EQUIVX(COULEUR_PLAGE(B5:C8);COULEUR_PLAGE(G3:G5)))))

=REDUCE(0;B5:C8;LAMBDA(i;x;i+ESTNUM(EQUIVX(COULEUR_PLAGE(x);COULEUR_PLAGE(G3:G5)))))

=SOMME(N(DANSCOL(COULEUR_PLAGE(B5:C8))=DANSLIGNE(COULEUR_PLAGE(G3:G5))))

Stéphane