Comptabiliser les couleurs d'une plage

Bonjour

Je souhaites comptabiliser les couleurs bleu dans la feuil2 de A1 a BZ38 et l'afficher dans Feuil1 en A3

Merci beaucoup

Bonjour,

Tout dépend de la région où tu habites

Car BLEU, c'est bleu ciel, bleu roi, bleu azur , bleu tout court, bleu nuit, .... etc

Bref, c'est bleu type RVB 0,0,255 en vba ou autre c'est vague, d'où les non réponses

Bonsoir

Dans couleur de remplissage et couleur standard c'est la 7 iem en partant de la gauche.

J’espère peut être avoir une réponse claire.

Merci

Bonsoir,

regardez le code de SPASME, un planning dans ma signature...

Il y a un code qui permet de comptabiliser les couleurs en fonction d'une couleur de référence.

@ bientôt

LouReeD

Bonjour,

Il y a aussi les fonctions de sebastien (en tete de forum) qui repondent directement a ta question

Crdmt

Bonjour,

Tu peux utiliser une fonction perso à laquelle tu passes ta plage comme premier argument et une cellule de référence qui comporte la couleur cherchée :

Function NBCOULEUR(Plage As Range, CelRef As Range) As Long

    Dim Cel As Range
    Dim Total As Long

    Application.Volatile

    For Each Cel In Plage

        If Cel.Interior.Color = CelRef.Interior.Color Then Total = Total + 1

    Next Cel

    NBCOULEUR = Total

End Function

Ce qui par exemple donnerait :

=NBCOULEUR(Feuil1!A1:BZ38;Feuil1!C8)

dans le cas où C8 de la feuille Feuil1 aurait la couleur recherchée.

Tu peux même passer en argument la cellule où tu mets la formule en l'ayant colorée de la couleur cherchée comme son résultat n'est pas utilisé dans la formule, il n'y a pas de référence circulaire.