Nombre de cellule d'une couleur avec une condition supplémentaire

[MysterMich]

Bonjour à tous,

je me demande s'il est possible de compter le nombre de cellule de couleur rouge (par exemple) mais également répondant à un autre critère d'une autre cellule.

Vous trouverez en PJ mon problème.

Je me suis renseigné pour la formule afin d'obtenir le nombre de cellule de couleur, j'ai celle-ci en VBA :

Function NbCoul(Zne As Range, Couleur As String)
Application.Volatile True
For Each cell In Zne
If cell.Interior.ColorIndex = 3 Then NbCoul = NbCoul + 1
Next
NbCoul = NbCoul
End Function

Puis on crée la formule : =NbCoul(C5:C12;3)

Cependant je n'arrive pas (en reprenant le code VBA précédent) à ajouter une autre condition.

Dans mon cas la phrase serait :
- nombre de cellule rouge (j'ai cette partie)
- ayant comme prénom paul (il me manque cette partie)


Si vous avez une idée...

Cordialement

 

[JBARBE]

Re : Nombre de cellule d'une couleur avec une condition supplémentaire

Bonsoir tous,

Peut-être ceci

Function NbPaul(Zne As Range, Prenom As String)
Application.Volatile True
For Each cell In Zne
If cell = "Paul" Then NbPaul = NbPaul + 1
Next
NbPaul = NbPaul
End Function

bonne nuit

 

[GIBI]

Re : Nombre de cellule d'une couleur avec une condition supplémentaire

Bonjour,

fait une fonction spécifique et ajoute une condition dans la macro : tu peux si tu veux passer la valeur du "Pénom" en argument et m^me les deux plages, à toi de voir

Public Function NbCoul(Zne As Range, Couleur As String) As Long
    Application.Volatile True
    Dim NbCouleur
    For Each cell In Zne
        If cell.Interior.ColorIndex = 3 _
           And cell.Offset(0, -2) = "Paul" Then
           NbCouleur = NbCouleur + 1
       End If
    Next
    NbCoul = NbCouleur
End Function

GIBI