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

MysterMich · 18 Juillet 2013

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 · 19 Juillet 2013

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

Bonsoir tous,

Peut-être ceci

Code:

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 · 19 Juillet 2013

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

Code:

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

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

MysterMich

XLDnaute Nouveau

Pièces jointes

JBARBE

XLDnaute Barbatruc

Pièces jointes

GIBI

XLDnaute Impliqué

Discussions similaires

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

MysterMich

XLDnaute Nouveau

Pièces jointes

JBARBE

XLDnaute Barbatruc

Pièces jointes

GIBI

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency