Nombre de cellules contenant une certaine couleur

Question

Bonjour,

J'ai un tableau de saisies, qui colore les cellules en fonction de MFC.

Je voudrais connaître le nombre de cellules en fonction des couleurs, mais les fonctions classiques NB_SI_COULEUR et NO_COULEUR ne fonctionnent pas...

Auriez-vous une idée, à part utiliser les arguments de la MFC ?

Merci

Thierry

Answer 1

1- ça ne fonctionne que quand les cellules avec MFC et la fonction sont dans la même feuille

Tu voudrais une fonction qui fonctionne sur plusieurs feuilles ? Donne un exemple de ce qui ne fonctionne pas

2- la mise à jour n'est pas automatique quand je modifie le contenu qui agit sur la mise en forme conditionnel de la cellule

Essaie comme ça :

Function NB_COUL_COND(Plage As Range, Coul As Range)

  Dim C As Range, Num As Long

  Application.Volatile

  For Each C In Plage

    NB_COUL_COND = NB_COUL_COND - (CFColorMatches(C) = CFColorMatches(Coul))

  Next C

End Function

Daniel

Answer 2

Bonjour,

Copié de stackoverflow.com, que je remercie. La fonction NB_COUL_COND a deux paramètres :

• Plage : la plage de cellules à utiliser.
• Coul : la cellule contenant la MFC à compter.

Par exemple :

=NB_COUL_COND(A1:A11;A2)

Les fonctions CFColorMatches et DFColor sont utilisées par la fonction principale.

Function NB_COUL_COND(Plage As Range, Coul As Range)

  Dim C As Range, Num As Long

  For Each C In Plage

    NB_COUL_COND = NB_COUL_COND - (CFColorMatches(C) = CFColorMatches(Coul))

  Next C

End Function

Function CFColorMatches(rng As Range)

    CFColorMatches = (rng.Parent.Evaluate("DFColor(""" & rng.Address & """)"))

End Function

Public Function DFColor(addr)

    DFColor = Range(addr).DisplayFormat.Interior.Color

End Function

Cordialement.

Daniel

Answer 3

1- ça ne fonctionne que quand les cellules avec MFC et la fonction sont dans la même feuille

Tu voudrais une fonction qui fonctionne sur plusieurs feuilles ? Donne un exemple de ce qui ne fonctionne pas

2- la mise à jour n'est pas automatique quand je modifie le contenu qui agit sur la mise en forme conditionnel de la cellule

Essaie comme ça :

Function NB_COUL_COND(Plage As Range, Coul As Range)

  Dim C As Range, Num As Long

  Application.Volatile

  For Each C In Plage

    NB_COUL_COND = NB_COUL_COND - (CFColorMatches(C) = CFColorMatches(Coul))

  Next C

End Function

Daniel

Bonjour Daniel,

Pour le point numéro 2 ça fonctionne parfaitement merci.

Concernant le point 1 :

J'ai une "Feuil1" sur laquelle on saisit un certain nombre d’informations donc Plage fait référence à cet onglet

Et sur une "Feuil2" je traite ces données et donc ma formule sur cette feuille est : =NB_COUL_COND('Feuil1'!D5:D517;$B20) avec Coul en B20 de cette "Feuil2"

Amicalement

Thierry

Answer 4

Bonjour,

Copié de stackoverflow.com, que je remercie. La fonction NB_COUL_COND a deux paramètres :

• Plage : la plage de cellules à utiliser.
• Coul : la cellule contenant la MFC à compter.

Par exemple :

=NB_COUL_COND(A1:A11;A2)

Les fonctions CFColorMatches et DFColor sont utilisées par la fonction principale.

Function NB_COUL_COND(Plage As Range, Coul As Range)

  Dim C As Range, Num As Long

  For Each C In Plage

    NB_COUL_COND = NB_COUL_COND - (CFColorMatches(C) = CFColorMatches(Coul))

  Next C

End Function

Function CFColorMatches(rng As Range)

    CFColorMatches = (rng.Parent.Evaluate("DFColor(""" & rng.Address & """)"))

End Function

Public Function DFColor(addr)

    DFColor = Range(addr).DisplayFormat.Interior.Color

End Function

Cordialement.

Daniel

Bonjour Daniel,

Merci pour ta solution et merci aussi à @stackoverflow.com.

ça permet effectivement de trouver le nombre de cellules en fonction des couleur de MFC, mais j'ai 2 problèmes :

1- ça ne fonctionne que quand les cellules avec MFC et la fonction sont dans la même feuille

2- la mise à jour n'est pas automatique quand je modifie le contenu qui agit sur la mise en forme conditionnel de la cellule

Amicalement 

Thierry

Answer 5

Bonjour,

Copié de stackoverflow.com, que je remercie. La fonction NB_COUL_COND a deux paramètres :

• Plage : la plage de cellules à utiliser.
• Coul : la cellule contenant la MFC à compter.

Par exemple :

=NB_COUL_COND(A1:A11;A2)

Les fonctions CFColorMatches et DFColor sont utilisées par la fonction principale.

Function NB_COUL_COND(Plage As Range, Coul As Range)

  Dim C As Range, Num As Long

  For Each C In Plage

    NB_COUL_COND = NB_COUL_COND - (CFColorMatches(C) = CFColorMatches(Coul))

  Next C

End Function

Function CFColorMatches(rng As Range)

    CFColorMatches = (rng.Parent.Evaluate("DFColor(""" & rng.Address & """)"))

End Function

Public Function DFColor(addr)

    DFColor = Range(addr).DisplayFormat.Interior.Color

End Function

Cordialement.

Daniel