Dans Excel 2000 additionner des couleurs

  • Initiateur de la discussion Initiateur de la discussion plods
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

plods

Guest
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
 
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).

Code:
[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+
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
474
Réponses
12
Affichages
686
Retour