somme suivant la couleur de police

[Jean-Marc]

salut

je ne voudrais faire la somme que des chiffres d'une ligne dont la police serait de couleur bleu

ex:

la ligne B9 W9 contient une série de nombre ,certains de couleur noir d'autre de couleur bleu,en X9 je voudrais trouver la somme des nombres de couleur bleu.


merci

JMV

 

[Mytå]

Salut Jean-Marc

Vite fait

Sub somme()
total = 0
For Each valeur In Range("B9:W9")
If valeur.Font.ColorIndex = 5 Then total = valeur.Value
Next valeur
Range("X9").Value = total
End Sub

A suivre

 

[Mytå]

oups erreur

Sub somme()
total = 0
For Each valeur In Range("B9:W9")
If valeur.Font.ColorIndex = 5 Then total = total + valeur.Value
Next valeur
Range("X9").Value = total
End Sub

 

[Jean-Marc]

merci je vais essayer !!

 

[Jean-Marc]

salut

cela ne marche pas surrement à cause du type de bleue.
ou trouver l'index des couleurs de police ,la 5 correspond à quel bleu ?

merci JMV

 

[François KARMANN]

Salut

Merci pour le code il marche très bien.

Mais je voudrais savoir comment calculer par exemple dans la même plage de cellules (B9:W9) du problème posé par J-M

La somme en X10 des nombres en police de couleur noire, et si j'emploi une troisième couleur rouge par exemple celle-ci en X11

Donc 3 sommes à calculer X9 Nombre en bleu
X10 Nombre en noire
X11 Nombre en rouge


Merci

 

[zon]

Salut à tous

Dans le fichier ci-joint il ya tous les index couleur sur la feuille1.




A+++++++++++

 

[François]

Salut à Tous

Merci pour le fichier Compte Couleur.

Un peut trop complexe pour intégrer dans une feuille de calcul existante.


@+

 

[Jean-Marc]

ok merci pour l'info


salut françois ,tu vois ça marche

 

[Mytå]

Bonsoir le forum

Tiens pour toi Jean-Francois (attention automatique n'est pas noir valeur=-4105)

Sub somme()
total_bleu = 0: total_noir = 0: total_rouge = 0
For Each valeur In Range("B9:W9")
If valeur.Font.ColorIndex = 5 Then total_bleu = total_bleu + valeur.Value
If valeur.Font.ColorIndex = 1 Then total_noir = total_noir + valeur.Value
If valeur.Font.ColorIndex = 3 Then total_rouge = total_rouge + valeur.Value
Next valeur
Range("X9").Value = total_bleu
Range("X10").Value = total_noir
Range("X11").Value = total_rouge
End Sub

Mytå

 

[François]

Bonsoir le forum

Cela répond parfaitement à mon problème

Merci pour cette réponse rapide.

@+ François