Microsoft 365 Compter le nombre de cellule colorié selon une critère date

[Abdoul aziz]

Bonjour à Tous quelqu'un pourrait il m'aider

Je souhaite écrire une fonction ou formule qui me compte le nombre de cellule colorié en bleu (FEUIL 1 COLONNE A) et qui prends en compte les dates de la colonne B
EXEMPLE POUR LE MOIS DE JANVIER ; il va me compter le nombre de cellule colorié en bleu et dont les valeurs de la colonne B sont compris entre le 01/01/2022 et le 31/01/2022
ainsi de suite pour le mois de février.

les résultats seront mis dans ma feuil sheet1 (COLONE B)
merci

 

[Jacky67]

Bonjour à Tous quelqu'un pourrait il m'aider

Je souhaite écrire une fonction ou formule qui me compte le nombre de cellule colorié en bleu (FEUIL 1 COLONNE A) et qui prends en compte les dates de la colonne B
EXEMPLE POUR LE MOIS DE JANVIER ; il va me compter le nombre de cellule colorié en bleu et dont les valeurs de la colonne B sont compris entre le 01/01/2022 et le 31/01/2022
ainsi de suite pour le mois de février.

les résultats seront mis dans ma feuil sheet1 (COLONE B)
merci

Bonjour,
Une proposition en pj
La mise à jour se fait à la sélection de la feuille "Sheet1"

 

[Abdoul aziz]

Bonjour,
Une proposition en pj
La mise à jour se fait à la sélection de la feuille "Sheet1"

Bonjour j'ai pas la pièce jointe

 

[Jacky67]

Bonjour j'ai pas la pièce jointe

Re..
Je l'avais modifiée, je l'ai remise

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @Abdoul aziz , bonjour @Jacky67
Comme toujours j'arrive après la bataille ...

Mais voici une solution avec une fonction et une formule :
J'ai ajouté une liste de choix avec une mise en forme conditionnelle pour les autres couleurs au cas où ...

La fonction :

Function couleur(Plg As Range) As Variant
Application.Volatile True
     ReDim Tb(1 To Plg.Count, 1 To 1)
     i = 0
     For Each C In Plg.Cells
     i = i + 1
          Tb(i, 1) = C.Interior.Color
     Next C
     couleur = Tb
End Function

La formule (en Sheet1!B2) :

=SOMMEPROD((Feuil1!$B$2:$B$130<>"")*(MOIS(Feuil1!$B$2:$B$130)=MOIS(1&$A2))*(couleur(Feuil1!$B$2:$B$130)=couleur(INDEX($D$2:$D$6;EQUIV($B$1;$D$2:$D$6;0)))))

(J'exclus les ligne pour lesquelles la date n'est pas renseignée)
Voir le classeur en pièce jointe.
Amicalement
Alain

 

[Abdoul aziz]

Bonjour à toutes & à tous, bonjour @Abdoul aziz , bonjour @Jacky67
Comme toujours j'arrive après la bataille ...

Mais voici une solution avec une fonction et une formule :
J'ai ajouté une liste de choix avec une mise en forme conditionnelle pour les autres couleurs au cas où ...
Regarde la pièce jointe 1134053
Regarde la pièce jointe 1134054
La fonction :

Function couleur(Plg As Range) As Variant
Application.Volatile True
     ReDim Tb(1 To Plg.Count, 1 To 1)
     i = 0
     For Each C In Plg.Cells
     i = i + 1
          Tb(i, 1) = C.Interior.Color
     Next C
     couleur = Tb
End Function

La formule (en Sheet1!B2) :

=SOMMEPROD((Feuil1!$B$2:$B$130<>"")*(MOIS(Feuil1!$B$2:$B$130)=MOIS(1&$A2))*(couleur(Feuil1!$B$2:$B$130)=couleur(INDEX($D$2:$D$6;EQUIV($B$1;$D$2:$D$6;0)))))

(J'exclus les ligne pour lesquelles la date n'est pas renseignée)
Voir le classeur en pièce jointe.
Amicalement
Alain

MERCI ça fonctionne

 

[Abdoul aziz]

Re..
Je l'avais modifiée, je l'ai remise

merci ça fonctionne