meadditioner des cellules deme couleur

[jacques]

Bonjour,
Je suis débutant avec Excel 2000
J’ai trouvé sur une revue comment additionner des cellules de même couleur a l’aide d’une macro
(Il y a aussi de bonnes astuces sur ce forum mais je n’arrive pas a les appliquer à mon tableau)
la voici
Function SommeRouge(Plage As Range)
For Each cell In Plage
If cell.Interior.ColorIndex = 3 Then vSomme = vSomme + cell.Value
Next
SommeRouge = vSomme
End Function

Il est indiqué des codes pour differentes couleurs mais je n’arrive pas a toutes les appliqués
Vertfonce=50/jaune=6/bleu=5/gris=15/rose=38/vertclair=4/orange=40
Quelqu’un peut-il m’en indiquer d’autre merci
Je joins un exemple de mon tableau si cela intéresse certains
cordialement

 

[Pascal76]

Bonjour

je te joins ton fichier modifié.
Tu verras je t'ai rajouté une feuille couleur qui te sert à choisir les couleurs de référence.
Cela te permet d'avoir une seulle fonction au lieu d'une fonction par couleur

Bon courage

Pascal

 

[@Christophe@]

Bonjour,

Voici un fichier avec tous les colorindex possible et leur couleur

Bonne journée

@Christophe@

 

[Pascal76]

Oups

Zon m'a fait remarquer sur le chat que le fichier n'est pas passé

Pascal

 

[jacques]

Merci à tous les deux
Pascal76 tu me dis que tu me raménes mon fichier modifié mais je ne le trouve pas.

 

[Pascal76]

Re

Le post au dessus du tien Jacques

J'avais du oubié le fichier

Pascal

 

[jacques]

Cet fois je l'ai trouvé, j' ai essayé ça marche merci encore