Formule dans cellules pour compter les couleurs

Bonjour à tous,

je viens de parcourir le forum et lire des dizaines de solutions à ma question

Aucune ne convient,

J'ai une macro qui fonctionne pour rechercher des cellules de couleur dans un tableau

mon but est de mettre la même formule dans une cellule.

j'ai testé les solutions proposées par Amadeus et Yvouille, mais rien ne fonctionne.

Voici mon code appelé par un double-clic

Sub NombredeCellules_De_Couleurs_1()
    'DAn - 13/05/13
    Dim Cellule As Range
    ' Zone B5:G27

     ActiveCell.Range("A1:E1").Select
    Selection.ClearContents

    For Each Cellule In Range("Janvier")

        Select Case Cellule.Interior.ColorIndex
            Case Is = 46: Range("B43") = Range("B43") + 1  'Orange
           Case Is = 23: Range("D43") = Range("D43") + 1 'bleu
           Case Is = 3: Range("E43") = Range("E43") + 1 'rouge
           Case Is = 10: Range("C43") = Range("C43") + 1 'vert
           Case Is = 6: Range("F43") = Range("F43") + 1 'jaune
       End Select
    Next
    End Sub

La plage "Janvier comprend l'entièreté du tableau Colonne B4 :AF40

Je souhaiterais ne tenir compte que de chaque colonnes séparément. avec une formule au bas de chaque colonne

Merci de bien vouloir m'aider.

Amicalement

Pierrot

Bonjour,

je ne vois pas le fichier...

eric

Bonjour Pierrot,

Il existe deux points importants à valider, en parlant de couleur :

1. Est-ce le texte ou l'intérieur de la cellule qui est colorié ?

2. Par quel moyen cette couleur apparait ? (manuellement, MFC)

Les réponses à ces questions modifient entièrement la solution à adopter ...

Bonjour Eriiic,

Je n'ai pas posté de fichier, il me semblait que le code VBA était suffisant, je souhaite mettre la formule VBA de recherche

dans une cellule

La macro fonctionne bien mais sur commande

La formule dans une cellule serait à jour automatiquement

For Each Cellule In Range("Janvier")

        Select Case Cellule.Interior.ColorIndex
            Case Is = 46: Range("B43") = Range("B43") + 1  'Orange

Amitiés

Pierrot

Salut, James007

Le fond de cellule est affecté par VBA

la police est affectée en fonction de la couleur de fond ( Police blanche sur fond rouge )....

Sub Couleur_Orange()
  ActiveCell.Range("A1").Interior.Color = RGB(255, 120, 0)
End Sub

ColorIndex = 46' pour la couleur orange

Amitiés

Pierrot

Bonjour l'ami,

Ci-joint une proposition : création d'une formule appelant une macro.

Les couleurs à compter sont celles du tableaux "Résultat" (modifiables, bien sûr)

Bouben

Bonjour ami Bouben,

ça marche bien sauf que au début, je n'avais pas copié le code dans un module,

maintenant tout marche bien,

un tout grand merci

Amitiés

Pierrot

Fournir un fichier nous évite d'avoir à le faire, tout en ayant le contexte exact.

A toi de voir si tu veux motiver un non les réponses, et en avoir de plus ou moins adaptées et devoir compléter les explications, tout le monde toi y compris perdant du temps...

Je comprend mieux avec la proposition de bouben : convertir un sub en fonction. Je me demandais de quelle formule tu parlais.

La macro fonctionne bien mais sur commande 
La formule dans une cellule serait à jour automatiquement

Tu auras toujours une action à faire. Le changement de couleur n'est pas détectable par excel, ta fonction ne se mettra jamais à jour toute seule.

Soit garder le sub et un bouton, soit compléter la fonction proposée en la rendant volatile avec :

application.volatile

ET faire F9 ou valider une cellule quelqonque.

eric

Bonsoir Eriiic,

Je te remercie de l'intérêt que tu portes à mon sujet,

Le tout étant réglé, je te remercie encore et te souhaites un excellent WE

Amicalement

Pierrot

Ok. Donc tu as bien vu que lorsque tu modifiais tes couleurs ta formule ne se mettait pas à jour toute seule.

eric

Bonjour Eriiic,

Exactement, il faut valider par OK ou un déplacement de la cellule active.

Merci pour tout,

Amicalement

Pierrot

bouben a écrit :

Bonjour l'ami,

Ci-joint une proposition : création d'une formule appelant une macro.

Les couleurs à compter sont celles du tableaux "Résultat" (modifiables, bien sûr)

Bouben

Bouben, tu pourrais mettre écrire le maccro sur un post? Car je n'arrive pas à le trouver en faisant ALT + F11 oO

merci d'avance