Calcul sur des caractères en couleur

Bonjour,

Je souhaite effectuer des calculs sur des nombres saisis avec des couleur différentes (rouge et bleu) dans 8 cellules de la même ligne; et ainsi influer sur le résultat en modifiant la couleur des nombres.

Merci de me venir en aide

Bonjour,

A mon avis possible uniquement avec un fonction personnalisée en macro.

Copier ce code dans un module :

Function TotalCouleur(Plage As Range, Couleur As Range) As Double

Dim R As Range, IdColor As Long

IdColor = Couleur.Font.Color

For Each R In Plage

If R.Font.Color = IdColor And IsNumeric(R.Value) Then

TotalCouleur = TotalCouleur + R.Value

End If

Next R

End Function

Là, où on veut le total, inscrire la formule : =TotalCouleur(Plage; Couleur)

Plage : Plage des cellules à additionner contenant différentes couleurs

Couleur: Une cellule avec la couleur à consédérer

Attention, les changements de couleur ne relancerons pas le calcul automatiquement !

Merci à Soft pour son aide et à Amadéus qui avait déja publié la solution complète à mon problème.

Bravo pour ce site vraiment plein d'informations. [/img]