somme suivant la couleur de police

M

Mytå

Guest

• 27 Mars 2003

• #2

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

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 27 Mars 2003

• #3

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

 

Vote positif 0 Vote négatif

J

Jean-Marc

Guest

• 28 Mars 2003

• #4

merci je vais essayer !!

 

Vote positif 0 Vote négatif

J

Jean-Marc

Guest

• 29 Mars 2003

• #5

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

 

Vote positif 0 Vote négatif

F

François KARMANN

Guest

• 29 Mars 2003

• #6

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

 

Vote positif 0 Vote négatif

Z

zon

Guest

• 29 Mars 2003

• #7

Salut à tous

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




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

 

Pièces jointes

• CompteCouleur.xls

  48.5 KB · Affichages: 180
• CompteCouleur.xls

  48.5 KB · Affichages: 186
• CompteCouleur.xls

  48.5 KB · Affichages: 182

Vote positif 0 Vote négatif

F

François

Guest

• 29 Mars 2003

• #8

Salut à Tous

Merci pour le fichier Compte Couleur.

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


@+

 

Vote positif 0 Vote négatif

J

Jean-Marc

Guest

• 29 Mars 2003

• #9

ok merci pour l'info


salut françois ,tu vois ça marche

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 29 Mars 2003

• #10

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å

 

Vote positif 0 Vote négatif

F

François

Guest

• 29 Mars 2003

• #11

Bonsoir le forum

Cela répond parfaitement à mon problème

Merci pour cette réponse rapide.

@+ François

 

Vote positif 0 Vote négatif