Calcul d'une somme par couleur

Mandyyy · 13 Décembre 2011

Bonjour,

J'aimerais calculer une somme tout dépendamment de la couleur d'une cellule.
Le pourquoi de la couleur n'est pas créer par Exel mais par moi. C'est un fichier comptable pour concilliation, quand une dépense est passée, je la met moi même en couleur. J'aimerais que le total de la semaine se calcule tout seul en prenant compte de la couleur de la cellule.
Merci à l'avance.

flyonets44 · 13 Décembre 2011

Re : Calcul d'une somme par couleur

bonsoir
avec cette fonction

Function SommeParCouleur(Plage As Range, nColorValue As Long) As Double
' Totaliser des cellules par couleur de fonds
Dim Total As Double, Rg As Range
For Each Rg In Plage
If Rg.Interior.ColorIndex = nColorValue And _
IsNumeric(Rg) Then
Total = Total + Rg.Value
End If
Next
SommeParCouleur = Total
End Function
Cordialement
Flyonets

Calcul d'une somme par couleur

Mandyyy

Guest

flyonets44

XLDnaute Occasionnel

Discussions similaires

Calcul d'une somme par couleur

Mandyyy

Guest

flyonets44

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency