Addition selon une couleur de texte

[StrictlyEast]

Bonjour à toutes et tous,

J'aimerais connaitre la formule pour additionner le contenu écrit en rouge dans une colonne.

Merci d'avance

Olivier

 

[thierry]

if Range('a1').Interior.ColorIndex =36 then
range('a2').value=range('a2').value+range('a1').value
end if

 

[Dan]

Bonjour,

Ci-joint un fichier que je retrouve dans mes archives.

Que l'auteur de ce fichier ne m'en veuille pas mais je ne sais malheureusement plus qui l'a fait.

[file name=Compte_Couleur.zip size=10282]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Compte_Couleur.zip[/file]

 

[Hervé]

Bonjour strictlyEast, thierry, le forum
salut dan

Personnellement j'ai compris que strictlyeast, voulait sommer les chiffres dont le caractère etait rouge ??

En pièce jointe, donc, une fonction personnalisé :

Public Function couleurcara(plage As Range, cellule As Range)
Dim c As Range
Dim somme As Double
Application.Volatile

For Each c In plage
    If c.Font.ColorIndex = cellule.Font.ColorIndex Then
        somme = somme + c.Value
    End If
Next c

couleurcara = somme
End Function

salut
[file name=Classeur3_20050530125426.zip size=7253]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur3_20050530125426.zip[/file]

 

[StrictlyEast]

Merci beaucoups à tous et particulièrement à Hervé...

Ca marche nickel

Encore Merci