Addition selon une couleur de texte

StrictlyEast · 30 Mai 2005

Bonjour à toutes et tous,

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

Merci d'avance

Olivier

thierry · 30 Mai 2005

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

Dan · 30 Mai 2005

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é · 30 Mai 2005

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 · 30 Mai 2005

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

Ca marche nickel

Encore Merci

Addition selon une couleur de texte

StrictlyEast

XLDnaute Nouveau

thierry

Guest

Dan

XLDnaute Barbatruc

Pièces jointes

Hervé

XLDnaute Barbatruc

Pièces jointes

StrictlyEast

XLDnaute Nouveau

Discussions similaires