Somme en fonction d'une couleur

herve62

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2018

• #2

Bonjour
Normalement avant de créer un post , on doit vérifier qu'il n'y en pas déjà un qui ressemble
est ce que celui ci n'a rien à voir ??
https://www.excel-downloads.com/threads/somme-si-couleur.20021534/#post-20159035

 

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 26 Février 2018

• #3

oui mais cela fonctionne en vba
je ni connait pas grand chose
j'aurai voulu autre que vba et macro

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 26 Février 2018

• #4

Neileru4 à dit:

oui mais cela fonctionne en vba
je ni connait pas grand chose
j'aurai voulu autre que vba et macro

Cliquez pour agrandir...

Bonjour,

VBA et pas autrement 🙁

P.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Février 2018

• #5

Bonjour Neileru4 🙂, Hervé 🙂

Ton fichier en retour, mais en VBA (Fonction personnalisée). Résultat en C31 et C33.

 

Pièces jointes

• Copie de Classeur-1.xlsm

  14.6 KB · Affichages: 71

Dernière édition: 26 Février 2018

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 26 Février 2018

• #6

merci lone-wolf
mais si je rajoute une case en bleu cela ne se modifie pas sur mon total

 

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 26 Février 2018

• #7

et peux tu expliquer ou savoir comment tu as fait?
merci j'aimerais bien essayer de comprendre ton raisonnement

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Février 2018

• #8

Re,

Je viens de faire un test en ajoutant le bleu sur une cellule et le résultat change.
Pour la 2ème question, j'avoue que la fonction n'est pas de moi et donc difficile de t'expliquer.

 

Pièces jointes

• Copie de Classeur-2.xlsm

  14.7 KB · Affichages: 31

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2018

• #9

Re
J'étais aussi en train de modifier le 1er fichier ( celui de Lone a la même fonction)
mais j'ai remis la sub si change select , cela fonctionne .....mais reste du VBA

 

Pièces jointes

• som_coul.xlsm

  17.4 KB · Affichages: 37

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 26 Février 2018

• #10

Neileru4 à dit:

et peux tu expliquer ou savoir comment tu as fait?
merci j'aimerais bien essayer de comprendre ton raisonnement

Cliquez pour agrandir...

Bonjour,
pour les cellules sélectionnées (une plage de cellules) , si la couleur de fond de la cellule est la même que la couleur de référence, alors il fait la somme
Les couleurs de référence étant et G et I dans l'exemple mais la couleur de référence pourrait être celle où se trouve la formule aussi 🙂
P.

 

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 26 Février 2018

• #11

est ce possible que si les macros ne sactive pas cela ne fonctionne pas

 

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 26 Février 2018

• #12

et comment modifier la vba pour renseigner d'autre couleur ou d'autre cellule

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Février 2018

• #13

Re

Pas besoin de modification, tu as bien vu dans le classeur 2 qu'il y a 2 couleurs. Pour Test, tu rajoute le rouge par exemple en K31; en C35 tu copie et colle la formule en mettant

=SOMME_SI_COULEUR(C10:E29;K31)

Quand tu enlève la ou les couleurs dans la plage de cellule ou si tu change une couleur(ex.: bleu par jaune), tu sélectionne la cellule du résultat, clique dans la barre de formule puis sur V.

 

Dernière édition: 26 Février 2018

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 26 Février 2018

• #14

ok
merci

et si je veux faire une somme de couleur mais sans données dedans
exemple mes produits je veux en mettre certain en vert comment les differencier

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Février 2018

• #15

Re,

Dans ce cas il faut une autre fonction, en voici une à ajouter dans le module

VB:

Function NbColor(ByRef Plage As Range, Couleur As Byte) As Long
    Dim c As Range
    Dim nb As Long
    nb = 0
    For Each c In Plage
        If c.Interior.ColorIndex = Couleur Then
            nb = nb + 1
        End If
    Next c
    NbColor = nb
End Function

Function NbColorSameAs(ByRef Plage As Range, ByRef Cellule As Range) As Long
    NbColorSameAs = NbColor(Plage, Cellule.Interior.ColorIndex)
End Function

Il faut utilise la fonction NbColorSameAs

 

Dernière édition: 26 Février 2018

Vote positif 0 Vote négatif