Fonction NB.SI.COULEUR(range ; critère)

Fermé
Princedes Messages postés 27 Date d'inscription mardi 4 août 2020 Statut Membre Dernière intervention 8 mars 2021 - Modifié le 26 août 2020 à 16:31
Princedes Messages postés 27 Date d'inscription mardi 4 août 2020 Statut Membre Dernière intervention 8 mars 2021 - 26 août 2020 à 17:17
Bonjour,

J'ai une fonction VBA qui compte les cellules d'une couleur et qui fonctionne :

Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function


Sauf que ma source "range_data" dispose de couleurs en mise en forme conditionnelle et que dans ce cas précis la fonction ne reconnaît pas la couleur. vu le volume de données (2773 lignes * 22 colonnes) ça m'embête.

Pouvez-vous m'aider à solutionner ce problème pour que la formule reconnaisse les couleurs qui ont été posées là par la mise en forme conditionnelle ?

Merci par avance pour votre aide.

1 réponse

via55 Messages postés 14381 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 22 février 2024 2 692
26 août 2020 à 17:03
Bonjour

Les macros ne reconnaissent pas les couleurs mises par MFC
IL faut compter les cellules non pas selon la couleur mais selon le(s) critère(s) de MFC soit par formules soit par macro

Cdlmnt
Via
0
Princedes Messages postés 27 Date d'inscription mardi 4 août 2020 Statut Membre Dernière intervention 8 mars 2021
26 août 2020 à 17:17
faute de mieux c'est ce que j'ai commencé par faire ... mais ça m'arrange pas lol
0