Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Somme selon la couleur de la cellule

valerie

XLDnaute Nouveau
Bonjour

J'ai un petit soucis, comment additionner des cellules en fonction de leur couleur ?

Merci de votre aide

cordialement

Valérie
 

JBARBE

XLDnaute Barbatruc
Re : Somme selon la couleur de la cellule

bonjour,

Un exemple d'addition de cellules de même couleur :

Le N° de la couleur est trouvée et l'addition des cellules de même couleur est faites !
Code:
Option Explicit
Function som_couleur(plage As Range, couleur As Integer)
Dim r As Range, nb As Double
Application.Volatile
nb = 0
For Each r In plage
If r.Interior.ColorIndex = couleur Then
nb = nb + r.Value
End If
Next
som_couleur = nb
End Function

Function cellCouleur(c As Range)
cellCouleur = c.Interior.ColorIndex
End Function
 

Pièces jointes

  • Cellules_de_même_couleur.xls
    55 KB · Affichages: 161
Dernière édition:

Discussions similaires

Réponses
26
Affichages
660
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…