somme

Selon quels critères les nombres sont en rouge ou en bleu ?

AV

-----Message d'origine-----
Selon quels critères les nombres sont en rouge ou en
bleu ?

AV

C'est un tableau basic. Je mets moi-même la couleur. En
fait, c'est une colonne contenant le prix d'une

prestation ; si le prix réel est connu je le mets en bleu
s'il est prévisionnel je le mets en rouge (je le mets en
bleu dès que je connais le prix réel)
Je ne suis pas experte en Excel ! peut-être y a-il moyen
de faire autrement !!

En tout cas merci d'avance pour votre aide

Samanthie

Sub totalcouleur()
Range ("B1") = ""
Range ("C1") = ""
For Each mycell In Range("A1:A30)
If mycell.Font.ColorIndex = 5 Then
Range("B1") = Range("B1") + mycell.Value
ElseIf mycell.Font.ColorIndex = 3 Then
Range("C1") = Range("C1") + mycell.Value
EndIf
Next
End Sub

Il est bien évident qu'il vous faut adapter cette macro : B1, C1 étant les
cellules réponses et A1:A30 les cellules à tester

"Samanthie" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1094d01c44010$432b1d90$a401280a@phx.gbl...
Bonjour à tous,

J'ai un tableau qui fait plusieurs pages. Dans une
colonne "TOTAL" j'ai des nombres en rouge et des nombre
en bleu. J'aimerai faire la somme de tous les nombres en
rouge dans une cellule et la somme de tous les nombres en
bleu dans une autre cellule.

Merci beaucoup pour votre aide

Samanthie

A adapter : plage d'examen : A1:A20 et résultats en B1 et C1

Sub zzz()
For Each c In [A1:A20]
If c.Font.ColorIndex = 3 Then sumRoug = sumRoug + c.Value
If c.Font.ColorIndex = 5 Then sumBleu = sumBleu + c.Value
Next
[B1].Value = sumRoug: [C1].Value = sumBleu
End Sub

AV