Additionner cellule de couleur

teamtat · 7 Mai 2010

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 · 7 Mai 2010

Re : Additionner cellule de couleur

bonjour teamtat

Avec une fonction personnalisée
Voir en H59 H60 H61

BOISGONTIER · 7 Mai 2010

Re : Additionner cellule de couleur

Bonjour,

Voir PJ

Code:

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 · 7 Mai 2010

Re : Additionner cellule de couleur

Merci sa marche niquel !

Additionner cellule de couleur

teamtat

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

teamtat

XLDnaute Occasionnel

Discussions similaires

Additionner cellule de couleur

teamtat

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

teamtat

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency