Une formule avec couleur cellule

[ouaf 63]

Je possède Excel 97 et je voudrais savoir si je peux additionner les contenus de certaines cellules par leurs couleurs
merci d'avance

 

[Bobstriker]

Bjj Ouaf,Bjr au forum,

quand tu parles de couleurs de cellules,tu parles de la police ou du remplissage ?
bonne journée à tous

 

[JeanMarie]

Bonjour

Voici un autre code, la couleur n'est pas donnée par un numéro, mais par la couleur dans une cellule.
Public Function NbColor(Plage As Range, vCellcolor As Range) As Byte
Dim vColorTest As Long
Dim Compteur As Long
Dim vColorCell As Range

Compteur = 0
vColorTest = vCellcolor.Interior.Color
For Each vColorCell In Plage
If vColorCell.Interior.Color = vColorTest Then
Compteur = Compteur + 1
End If
Next vColorCell

NbColor = Compteur
End Function

Par exemple :
A1:A20 est la plage de cellule susceptible d'avoir les couleurs
A21 est la référence de la cellue qui contient la couleur à tester.
Et de saisir dans une cellule =NbColor(A1:A20;A21)

@+Jean-Marie

 

[ouaf 63]

bonjour,

c'est de la couleur de la cellule que je parlais à l'origine mais si ce n'est pas possible je peux modifier la couleur de la police !!!

A+ merci