XL 2010 Compter les cellules MFC

riton00 · 1 Mars 2022

Bonjour, le forum, job75

Je m'adresse particulièrement à vous job75 puisque à l'époque je suis tombé sur un de votre code VBA ICI intéressant pour compter les couleurs issu de MFC.
Actuellement on comptabilise sur votre code les couleurs d'une plage complète.
Ma question:
Peut-on comptabiliser ligne par ligne les couleurs "environ une centaine de ligne"

Merci par avance

Cordialement

Bernard_XLD · 2 Mars 2022

Bonjour riton00, mapomme, le forum

Pour le fun, une proposition qui conjugue fonction personnalisée et événementielle
permet de compter les couleurs de MFC sur une plage passée en paramètre dans la fonction personnalisée. fonctionne en ligne, colonne ou plage selon la couleur de la cellule contenant la fonction et sans avoir besoin de modifier les macros pour les plages.

Bien cordialement, @+

mapomme · 2 Mars 2022

Bonsoir @riton00,

Comme on connait les conditions de la MFC, on peut utiliser des formules sans VBA.
Revoyez vos formules de MFC, il y a un bazar pas possible (j'ai essayé vite fait de les simplifier).
Copier les formules en A3:B3 vers le bas.

edit : correction d'une formule car je pensais que les valeurs étaient entières; ce qui n'est pas le cas.

Bernard_XLD · 2 Mars 2022

Bonjour riton00, mapomme, le forum

Pour le fun, une proposition qui conjugue fonction personnalisée et événementielle
permet de compter les couleurs de MFC sur une plage passée en paramètre dans la fonction personnalisée. fonctionne en ligne, colonne ou plage selon la couleur de la cellule contenant la fonction et sans avoir besoin de modifier les macros pour les plages.

Bien cordialement, @+

riton00 · 2 Mars 2022

Bonjour, le forum, mapomme, Bernard_XLD

Pour le fun, une proposition qui conjugue fonction personnalisée et événementielle

Excellent!! Bernard_XLD c'est exactement ce que je recherchais c'est beaucoup plus simple comme cela merci pour cette moulure. Yessssss!!
Merci aussi à mapomme, pour son implication mais dans mon cas le code VBA de Bernard_XLD passe beaucoup mieux

Slts

Bernard_XLD · 2 Mars 2022

Re,

Eh oui, dommage que DisplayFormat ne soit pas utilisable en fonction personnalisée, on aurait pu se passer de l'événementielle et compter directement dans la fonction.
J'ai mis un événement change sur workbook open pour déclencher la première initialisation du tableau de référence des couleurs de MFC.

Bien cordialement, @+

mapomme · 2 Mars 2022

Bernard_XLD à dit:
DisplayFormat ne soit pas utilisable en fonction personnalisée,

Oui chez moi non plus, ça provoque une référence circulaire.

Bernard_XLD · 2 Mars 2022

mapomme à dit:
Oui chez moi non plus, ça provoque une référence circulaire.

Chez personne en fait, c'est bien précisé sur le site Microsoft:
"Notez que la propriété DisplayFormat ne fonctionne pas dans les fonctions définies par l’utilisateur"
https://docs.microsoft.com/fr-fr/office/vba/api/excel.range.displayformat

mapomme · 2 Mars 2022

Bernard_XLD à dit:
Propriété Range.DisplayFormat (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

Pas bien réveillé.
De toute manière, moins on se base sur les couleurs plus on sera juste. Comment savoir que deux couleurs vertes à l'œil son identiques ou différentes ?
Si on change la couleur d'une règle MFC, les résultats seront faux (ils ne sont pas modifiés).
Avec l'application des formules, on a l'esprit libre .

Bernard_XLD · 2 Mars 2022

mapomme à dit:
Avec l'application des formules, on a l'esprit libre

Re,

c'est un sujet qui peut être débattu ! si on change les formules des MFC sans changer les formules des cellules, on aura aussi un problème.
Après, il n'y a rien de compliqué à noter les couleurs appliquées en MFC et d'appliquer les mêmes en couleur de fond des cellules contenant la fonction et on pourra changer les formules des MFC sans toucher aux cellules de comptage.
Simplement, la problématique évoquée dans cette discussion m'a intéressé, c'est tout.

Bien cordialement, @+

mapomme · 2 Mars 2022

Bernard_XLD à dit:
Simplement, la problématique évoquée dans cette discussion m'a intéressé, c'est tout.

J'ai d'ailleurs bien examiné ta solution.

XL 2010 Compter les cellules MFC

riton00

XLDnaute Impliqué

Pièces jointes

Bernard_XLD

mapomme

XLDnaute Barbatruc

Pièces jointes

Bernard_XLD

XLDnaute Barbatruc

Pièces jointes

riton00

XLDnaute Impliqué

Bernard_XLD

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Propriété Range.DisplayFormat (Excel)

Bernard_XLD

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Discussions similaires