Somme selon couleurs des cellules

[Caninge]

Bonjour à tous,

il y a bien longtemps que je ne suis pas venu sur le forum.

je remarque qu'il est toujours aussi actif.

La question que je pose a été bien souvent demandé.

J'ai cherché et j'ai trouvé.

Mais il y a un petit problème c'est que la somme est inexacte.

Je vous remercie.

 

[Banzai64]

Re : Somme selon couleurs des cellules

bonjour
Il faut déclarer la fonction comme ca

Function ColorCountIf(SearchArea As Object, BgColor As Range) [COLOR="Red"]As Double[/COLOR].
.
.

 

[news]

Re : Somme selon couleurs des cellules

bonsoir au fil et à tous du forum,

dans la fonction dans module 1
Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer

le résultat du calcul =ColorCountIf(B2:B28;B9)
n'est pas juste, comme les montants > 0,50 sont calculés comme valeur 1,00 et les montants < 0,50 sont pris comme 0,00

 

[BOISGONTIER]

Re : Somme selon couleurs des cellules

Bonsoir,

Function SommeCouleurFondRef(champ As Range, couleurfond As Range)
  Application.Volatile
  Dim c, temp
  temp = 0
  For Each c In champ
    If c.Interior.ColorIndex = couleurfond.Interior.ColorIndex Then
      If IsNumeric(c.Value) Then temp = temp + c.Value
    End If
  Next c
  SommeCouleurFondRef = temp
End Function

=SommeCouleurFondRef(B2:B28;B30)

Avec cette 2e fonction , la couleur de ref est la couleur de la cellule où la formule est écrite.

Function SommeCouleurFondRef2(champ As Range)
   Application.Volatile
   Dim couleurfond As Integer, temp As Double, c
   couleurfond = Range(Application.Caller.Address).Interior.ColorIndex
   temp = 0
   For Each c In champ
     If c.Interior.ColorIndex = couleurfond Then
        If IsNumeric(c.Value) Then temp = temp + c.Value
     End If
   Next c
   SommeCouleurFondRef2 = temp
End Function

=SommeCouleurFondRef2(B2:B28)

JB

 

[Caninge]

Re : Somme selon couleurs des cellules

Bonsoir,

je vous remercie pour les solutions.

Je prends la réponse de Banzaï.

Merci

A plus