Somme selon la couleur de la cellule

[valerie]

Bonjour

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

Merci de votre aide

cordialement

Valérie

 

[Compte Supprimé 979]

Re : Somme selon la couleur de la cellule

Bonjour valérie

comment additionner des cellules en fonction de leur couleur ?​

En cherchant sur le forum, sujet traité des milliards de fois

 

[valerie]

Re : Somme selon la couleur de la cellule

Desolée je n'ai pas trouvé ....

 

[CISCO]

Re : Somme selon la couleur de la cellule

Bonjour

Comment obtiens tu ces couleurs, à la main, ou à l'aide d'une mise en forme conditionnelle ?

@ plus

 

[JBARBE]

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 !

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

 

[valerie]

Re : Somme selon la couleur de la cellule

merci de ton aide
bonne journée