Nombre de cellules d'une même couleur et inférieur ou égal à une date donnée

[Quincy]

Bonjour à tous

J'aimerais savoir comment obtenir en cellule C43 le nombre de cellules jaunes en janvier (colonne C lignes 3 à 33) et inférieur ou égal à la date inscrite en cellule C42.
Merci beaucoup.
Cordialement.

Quincy

 

[djidji59430]

Re : Nombre de cellules d'une même couleur et inférieur ou égal à une date donnée

bonjour,
Essaye
=NB.JOURS.OUVRES(DATE(2015;1;1);DATE(ANNEE(C42);MOIS(C42);JOUR(C42)))

 

[Quincy]

Re : Nombre de cellules d'une même couleur et inférieur ou égal à une date donnée

Bonjour djidji59430

Merci de ta réponse mais cela ne marche pas, notamment car le samedi est considéré comme ouvré.
J'ai vraiment besoin de compter les cellules jaunes car parfois un jour ouvré jaune pourra être grisé car il sera en fait chômé.
Bien cordialement.

Quincy

 

[PMO2]

Re : Nombre de cellules d'une même couleur et inférieur ou égal à une date donnée

Bonjour,

Une piste avec une fonction personnalisée

Function NbConditionsDateCouleur(Plage_Donnees As Range, Cellule_Date_Couleur As Range) As Long
Dim C As Range
Dim Couleur&
Dim DateBase As Date
Dim cpt&    'compteur
'--- Définition des conditions : date et couleur ---
Couleur& = Cellule_Date_Couleur.Interior.Color
DateBase = Cellule_Date_Couleur
'--- Recherche des occurences ---
For Each C In Plage_Donnees
  If IsDate(C) Then
    If C.Interior.Color = Couleur& Then
      If C <= DateBase Then cpt& = cpt& + 1
    End If
  End If
Next C
'--- Valeur de retour ---
NbConditionsDateCouleur = cpt&
End Function

Exemple : =NbConditionsDateCouleur(JanvierN_Date;C42)
ATTENTION :
La couleur de la cellule C42 doit impérativement correspondre à la couleur des cellules testées.

 

[Quincy]

Re : Nombre de cellules d'une même couleur et inférieur ou égal à une date donnée

Bonjour PMO2

C'est exactement ce que je recherchais. Cela marche nickel.
Un grand merci à toi.
Bien cordialement.

Quincy