Comptage cellules

Bonjour,

Je voudrais afficher en O1 le nombre de cellules vertes de ma plage de données.

Merci de votre aide.

Bonjour,

Une piste avec une fonction perso :

Function NBCouleur(Plage As Range, CelRef As Range)

    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

que tu utilise de cette façon :

=NBCouleur(A1:G14;A9)

Le premier argument est la plage où tu souhaites compter les cellules et le second est une cellule de cette plage (ou hors de la plage) qui a la couleur recherchée

Bonjour Theze,

Merci pour ta fonction qui fonctionne bien mais.......

j'utilise une macro qui me colorie ces cases.

A la fin de la macro, je voudrais rajouter ce comptage du coup j'ai fait simple:

For Each Cell In Range("A1:G18")

If Cell.Interior.Color = couleur Then S = S + 1

Next Cell

[O1].Value = S

merci

a+

Alors adapte ceci :

Sub TaMacro()

    Dim Plage As Range
    Dim Cel As Range
    Dim Total As Long
    Dim Couleur As Long

    'ici ton code...

    Set Plage = Range("A1:G14")

    'MsgBox Range("A9").Interior.Color <--savoir ta couleur
    'ou dans la fenètre d'exécution écrire ?Range("A9").Interior.Color puis Entrée
    Couleur = 65280

    For Each Cel In Plage

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

    Next Cel

    MsgBox Total

End Sub