Compter des cellules en couleur

Bonjour,

en fouinant sur le forum, je n'ai pas trouver un post qui correspond a mes attentes ; ma problématique est la suivante et reste relativement simple ; j'ai dans une plage de cellule A2:A30 certaines cellules sont remplies avec un code couleur X, comment faire pour les comptabiliser ?

Merci pour votre aide,

Cordialement,

F. AUDOUY

Bonjour

j'ai dans une plage de cellule A2:A30 certaines cellules sont remplies avec un code couleur X, comment faire pour les comptabiliser ?

=NB.SI(A2:A30;Code) Code étant bien sur remplacé par le No recherché;

Cordialement

bonjour et merci, mais comment trouver le "code" de la couleur que j'ai choisi ?

cordialement,

Bonjour

bonjour et merci, mais comment trouver le "code" de la couleur que j'ai choisi ?

Ici

Cordialement

merci pour ton exemple, je pensais m'en sortir, je fais strictement la meme chose dans mon fichier que je joins avec la fonction NB.SI, mais le résultat est toujours 0 !! J'en perds mon latin !

Merci de ton aide,

Cordialement,

ps : sur feuille TD8

Bonjour à tous,

Autre solution

Sub CompteCouleur() 'Claude pour "faudouy" 21/01/2010
Dim inDex, Plg As Range
    Application.ScreenUpdating = False
    Range("f36").ClearContents 'compteur
        Set Plg = Range("d2:o28")
    For Each cel In Plg 'cherche la 1ère couleur
        If cel.Interior.ColorIndex <> xlNone Then
            inDex = cel.Interior.ColorIndex
        Exit For
        End If
    Next cel

        Set Plg = Range("d2:o28")
    For Each cel In Plg 'compteur
        If cel.Interior.ColorIndex = inDex Then _
        Range("f36") = Range("f36") + 1
    Next cel
End Sub

Amadéus, je n'arrive pas à faire fonctionner ta Fonction !

Amicalement

Claude