Attribuer une valeur à une couleur

Bonjour,

J'ai créer un tableau de management visuel (avec 3 couleurs)

Je désirerai affecter une valeur aux cellules de ce tableau suivant quelles soient remplies d'une de ses trois couleurs pour pouvoir ensuite donner une note au tableau

exemple: vert=3pts jaune=1pt rouge=0pt

D'avance, merci pour votre aide.

Bonjour,

Ton fichier en retourd avec le principe suivant.

Une seule colone avec liste (3;2;0) et MFC qui colore la cellule en fonction de la note accordée.

.

Merci Mobil pour ta réponse

je m'aperçois que je me suis mal exprimé

je souhaite compter le nombre de couleur de chaque colonne exemple:Si je mets 2 cellules vertes dans la plage ( I8:I14) je veux que la cellule I15 indique 2

j'ai essayé avec NB.si et NBColor mais ça ne marche pas

Peux tu m'aider

Encore mrci

Bonjour à vous deux. Un petit essai.

A te relire,

Leakim

Re,

Leakim,

Je pense que notre amis veut compter les cellules par couleur, non pas le contenu.

J'ajoute donc ma version. faisant appel à une fonction

.

Merci à vous deux,

Effectivement Mobil, c'est pile poil ce que je voulais

Petite question que signifie le 2 dans la formule''fond2''

Encore merci et bravo pour vos compétences

Re,

chlillo a écrit :

Petite question que signifie le 2 dans la formule''fond2''

Dans le module VBA tu as 2 fonctions.

Function CompteCouleurFond(champ As Range, couleurfond)
   Application.Volatile
   Dim c, temp
   temp = 0
   For Each c In champ
     If c.Interior.ColorIndex = couleurfond Then
       temp = temp + 1
     End If
   Next c
   CompteCouleurFond = temp
End Function
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
   Application.Volatile
   Dim c, temp
   temp = 0
   cf = couleurfond.Interior.Color
   For Each c In champ
     If c.Interior.Color = cf Then
       temp = temp + 1
     End If
   Next c
   CompteCouleurFond2 = temp
End Function

La formule fait appel à la 2ème.

Tu peux virer la 1er.

.