Valeur des cellules colorées

Bonsoir le forum

J'ai encore besoin de votre savoir, en l’occurrence, je cherche un formule que j'ai vu dans ce forum, mais qui ne marche pas chez moi.

Calculer la valeur des cellules avec un fond vert dans un tableau.

Un grand merci de votre aide.

Bonne soirée à tous

Papy Pierrot

Bonjour

Avec ta macro modifiée

Sub NombredeCellulesvertes()
'Ligne 9
Dim Cellule As Range
Dim total As Variant

  For Each Cellule In Range("Scores")
    If Cellule.Interior.ColorIndex = 14 Then 'Vert
      total = total + Cellule
    End If
  Next

  Range("Q2") = total

End Sub

Avec une fonction personnalisée

Tu peux faire la somme de la couleur que tu veux, il suffit de lui transmettre en paramètre une cellule ayant la bonne couleur

Function SommeCouleurs(Plage As Range, Ref As Range)
'Ligne 9
Dim Cellule As Range
Dim total As Variant

  Application.Volatile

  For Each Cellule In Plage
    If Cellule.Interior.ColorIndex = Ref.Interior.ColorIndex Then
      total = total + Cellule
    End If
  Next

  SommeCouleurs = total

End Function

Utilisation : Dans une cellule

=SommeCouleurs(Scores;N3)

Bonsoir, Banzai,

C'est parfait comme toujours cela fonctionne très bien, sauf pour la macro fonction personnalisée, je ne comprend pas.

Je suis comblé pour l'instant avec la 1ère macro

Un grand merci et bonne soirée

Amicalement, Pierrot

Bonjour

Je ne fais pas beaucoup de test mais j'ai quand même essayé avec ton fichier

Tu as bien noté la formule ?

=SommeCouleurs(Scores;N3)

Bonsoir, Oui ça fonctionne

je te l'ai dit dans la réponse

Ce que je ne comprend pas c'est la macro personnalisée.

Bonne soirée

Pierrot