Additionner cellule de couleur

[teamtat]

Bonjour,
Je voudrais additionner tous mes montants en rouge dans la case perdus, les montant en bleu dans la case commandes et les montants en noir dans la case en attente, ci-joint le fichier pour plus de compréhension.
Merci

 

[pierrejean]

Re : Additionner cellule de couleur

bonjour teamtat

Avec une fonction personnalisée
Voir en H59 H60 H61

 

[BOISGONTIER]

Re : Additionner cellule de couleur

Bonjour,

Voir PJ

Function SommeCouleurTexte(champ As Range)
   Dim c, temp
   Application.Volatile
   couleurTexte = Range(Application.Caller.Address).Font.ColorIndex
   temp = 0
   For Each c In champ
     If c.Font.ColorIndex = couleurTexte Then
       If IsNumeric(c.Value) Then temp = temp + c.Value
     End If
   Next c
   SommeCouleurTexte = temp
End Function

JB

 

[teamtat]

Re : Additionner cellule de couleur

Merci sa marche niquel !