Excel - nombre de case verte

Merci,

ca marche!!! c'est génial
j'ai juste ajouter un bouton et une boite de dialogue pour afficher le résultat :))

c'es trop bien merci :)

Re,

Si il est possible mais avec un code VBA soit avec une fonction personnalisée ou une macro que l'on colle dans le visual basic

un petit exemple de code qui comptera les cellules de couleur rouge de la plage A1 à A100 et affichera le nombre dans la cellule C2.

sélectionne le code ci-dessous et clic droit/Copier
clic droit sur l'onglet de ta feuille/Visualiser le code et dans la partie blanche de la feuille qui s'est ouverte clic droit Coller

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each o In [A1:A100]
If o.Interior.ColorIndex = 3 Then i = i + 1
Next
[C2] = i
End Sub

c'est des couleurs mise manuellement...
et la c'est le drame...
c'est vraiment pas possible?

On peux pas compter le nombre de cellules ayant le code couleur tant et le nombre de cellule ayant le code couleur tant2 etc?

:(
c'est triste...

Re,

tout dépend comment tes cellules sont colorisées:

manuellement la réponse est non

sur une mise en forme conditionnelle c'est possible mais dans ce cas quelle est la formule conditionnelle utilisée

Je devrais peut etre préciser ma demande...
j'ai une plage de cellule de C17 à AC34 et j'aimerais connaitre facilement le monbre de cellules vertes, oranges, bleues et rouges de cette plage...

Merci pour vos répone et désolé d'avoir mis si longteps à repondre.

Est ce possible d'utiliser une formule plus qu'une macro

http://www.cijoint.fr/cjlink.php?file=cj201012/cijqGvdnnZ.zip
quelques fichiers qui permettent de compter les couleurs
dont un fichier du regretté Thierry POURTIER ("Ti" pour les intimes :-) trouvé sur son site "VERITI" : http://vlohr.free.fr/veriti/forum/index.php

Salut,

En VBA, plusieurs possibilités, soit en avec une fonction personnalisée ou avec une macro.
Dans tous les cas si on veut compter les cellules d'une couleur précise il faut avoir le code index de la couleurs exemple pour le rouge l'index est le 3

ce code est à associer à un bouton et comptera toutes les cellules de couleur sur la plage A1 à A100.

Sub Test()
For Each o In [A1:A100]
If o.Interior.ColorIndex <> xlNone Then i = i + 1
Next
MsgBox i
End Sub

pour compter les cellules de couleur verte en supposant qu'il s'agit du vert brillant

Sub Test()
For Each o In [A1:A100]
If o.Interior.ColorIndex = 4 Then i = i + 1
Next
MsgBox i
End Sub

Le nombre s'affiche sur une boite de dialogue (msgbox) mais pourrait s'afficher dans une cellule exemple en B1

remplacer
MsgBox i
par
[B1] = i
ou simplement ajouter la ligne
On pourrait également afficher le code couleur dans une liste déroulante ce qui permettrait en un clic avoir le nombre de cellules de la couleur sélectionnée

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

je suis sous excel 2007 et ce sont des couleur que je met moi

mais le filtr auto prend en compte mes couleurs

salut
oui mais...
quelle version d'excel ?
la couleur vient-elle d'une mise en forme conditionnelle ?