Dans Excel 2000 additionner des couleurs

[plods]

Bonjour à tous,

J aimerai savoir et surtout comment (si c est possible) additionner des cellules d'une certaine couleur, c est à dire dans un tableau j ai des montants avec en fond de cellule une certaine couleur (rouge par exemple)... j aimerai additioner les montants qui ont un fond de cellule rouge.
Je cherche cela depuis longtemps
merci à toutes et tous pour votre eventuelle aide

 

[Sylvain]

Re : Dans Excel 2000 additionner des couleurs

Bonjour,

Il y a des réponses dans l'historique du forum. Il faut ajouter une fonction vba que l'on peut ensuite utiliser sur sa feuille de calcul.

En pièce jointe il y a un classeur exemple avec les numéros de chaque couleur (pour le rouge c'est 3).

[size=2][color=black]  [/color][color=darkblue]Function[/color][color=black] SommeC(plage [/color][color=darkblue]As[/color][color=black] Range, couleur [/color][color=darkblue]As[/color][color=black] Integer)  
    [/color][color=darkblue]Dim[/color][color=black] cellule [/color][color=darkblue]As[/color][color=black] Range  
    SommeC = 0  
    [/color][color=darkblue]For[/color][color=black] [/color][color=darkblue]Each[/color][color=black] cellule [/color][color=darkblue]In[/color][color=black] plage  
      [/color][color=darkblue]If[/color][color=black] cellule.Interior.ColorIndex = couleur And TypeName(cellule.Value) <> "String" [/color][color=darkblue]Then[/color][color=black]  
        SommeC = SommeC + cellule.Value  
      [/color][color=darkblue]End[/color][color=black] [/color][color=darkblue]If[/color][color=black]  
    [/color][color=darkblue]Next[/color][color=black]  
[/color][color=darkblue]End [/color][color=black] [/color][color=darkblue]Function[/color][color=black]  [/color][/size]

A+