XL 2016 compter des cellules ayant des chiffres de couleurs differentes

Staple1600 à dit:

Re

Donc en reprenant un code que j'ai posté dans un autre fil

VB:

'recyclée de:
'https://www.excel-downloads.com/threads/calcul-cellule-de-couleur-excel-2007.20034263/#post-20247740
Function NBCOULEUR(Zone As Range, CommeCellule As Range)
Dim xCell As Range, Couleur, i&
i = 1
Couleur = CommeCellule.Interior.Color
For Each xCell In Zone
If xCell.Font.Color = Couleur Then
NBCOULEUR = NBCOULEUR + i
End If
Next xCell
End Function

A utiliser comme suit:
Copie cette formule en G6 (puis recopie vers le bas)
=NBCOULEUR($B$7:$B$20;F6)

Bien sur il faut d'abord copie le code VBA dans un module
(ALT+F11 puis Insertion/Module)

PS: Si difficutés, voir tuto sur le web pour copier une macro dans un module.

Cliquez pour agrandir...

sexy95 à dit:

@Staple1600 jai essaye de tirer la colonne B jusqu'à la 25ieme ligne( qui sont des cellules vides) , mais a ma grande surprise ca sest melanger au resultat des chiffres en noir. cest quoi la raison?

Cliquez pour agrandir...

sexy95 à dit:

mon probleme en gros est que jaimerai avoir une tableau qui s'incrémente et se décrémente lorqu'on ajoute un chiffres de couleurs correspondantes , lorsqu'on change de couleur. le tableau doit etre automatise

Cliquez pour agrandir...

mapomme à dit:

Re @sexy95 , @patricktoulon

Le changement des caractéristique de la police ou du fond ne sont pas des évènements détectés par Excel. Quand on a affaire à une base de données sérieuse, on n'utilise pas des informations comme la couleur, la graisse, la taille, etc comme champ de données de la base. On utilise des champs ordinaires (texte, nombre, Oui/Non, etc.) voire des champs calculés.
Le cas des MFC (mises en forme conditionnelle) est pire. La couleur affichée n'est pas celle qui est attachée à la cellule. On ne lira donc jamais que la couleur origine de la cellule et pas la couleur définie par la MFC (sauf à utiliser des astuces en VBA).

Cliquez pour agrandir...