compter Cellules de couleur

Version imprimable

Bonjour à toutes et à tous,

Voici, ci-dessous, ce bout de code que j'ai trouvé ici et sur un autre forum mais que je n'arrive pas à adapter.

Voici mon problème : prenons par exemple la colonne G
sur la plage ("G2:G97") , je choisis manuellement un fond de couleur ( parmi 5 ) suivant si la personne ( Nom : colonne A et Prénom : colonne B ) est dans tel groupe ou tel groupe pour telle séance.
Remarque : la colonne G correspond à la séance 1,la colonne H correspond à la séance 2, etc...

--> pour la plage ("G2:G97")
Je voudrais qu'en cellule ("G101"), s'affiche le nombre de fois où la couleur 10027212 apparaît ( rose )
en ("G102") s'affiche le nombre de fois où la couleur 5287936 apparaît ( vert )
en ("G103") s'affiche le nombre de fois où la couleur 65535 apparaît ( jaune )
en ("G104") s'affiche le nombre de fois où la couleur 49407 apparaît ( orange )
en ("G105") s'affiche le nombre de fois où la couleur 15773696 apparaît ( bleu )

Question : Comment remplacer "Plage" par ("G2:G97") puis par ("H2:H97"),etc..... ( déjà avec seulement ("G2:G97") je n'y arrive pas ) ?
Que signifie " Application.volatile" ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Function NbreCellulesCouleur(Plage As Range, Couleur As Byte) As Long 'Compter le nombre de cellules d'une couleur donnée dans une plage donnée 'Plage: plage de cellules à inspecter 'Couleur: valeur de la couleur cherchée Application.Volatile Dim Cellule As Range For Each Cellule In Plage If Cellule.Interior.ColorIndex = Couleur And Not IsEmpty(Cellule) Then NbreCellulesCouleur = NbreCellulesCouleur + 1 End If Next Cellule End Function
Merci d'avance.

Novice72

10/03/2019, 18h44
Algoplus

Bonjour,

le code présenté est celui d'une fonction personnalisée qui s'utilise comme une fonction native d'Excel.

la modification des plages et des couleurs ne s'effectue pas dans le code mais dans l'écriture de la fonction dans la cellule.

Par exemple, pour la plage ("G2:G97"):

en G102 écrire : =NbreCellulesCouleur(G2:G97;5287936) puis tirer vers le bas; les adresses de plage se modifieront comme avec une formule classique.

Application.volatile indique à la fonction de "se" recalculer à la modification de n'importe quelle cellule et notamment la couleur de fond.

Il y a cependant une modification à apporter à la fonction qui utilise Cellule.Interior.ColorIndex
Comme vous voulez utiliser les N° de couleur, il faudra l'instruction:

Code:

If Cellule.Interior.Color = Couleur Then

J'ai supprimé

Code:

And Not IsEmpty(Cellule)

car dans le cas présent, que la cellule soit vide ou pleine, il faudra la compter.

A+

Edit : Le code d'une fonction personnalisée doit être copié dans un module standard.
11/03/2019, 09h18
Menhir
Citation:

Envoyé par Algoplus

Application.volatile indique à la fonction de "se" recalculer à la modification de n'importe quelle cellule et notamment la couleur de fond.

Non, Excel ne considère pas la modification de la couleur de fond comme pouvant influer sur le résultat d'une fonction donc il ne recalcule pas.

L'utilisation de couleur comme donnée d'entrée pour Excel est un marronnier de ce forum.
La conclusion est toujours la même : ce n'est pas fiable, surtout dans une fonction personnalisée, quelle que soit la méthode utilisée.

Petite expérience pour le prouver.
Tu mets dans un module la fonction :
Code:

1 2 3 4 Function couleur(plage As Range) As Long Application.Volatile couleur = plage.Interior.Color End Function
Dans une feuille de calcul, tu mets A1 en rouge et A2 en jaune.
En B1, tu mets la fonction =couleur(A1) et tu copies B1 en B2.
Jusque-là, tout va bien, la référence des couleur est bien écrite.

Maintenant, tu passes A2 en rouge et tu peux constater que la valeur de B2 ne change pas. A1 et A2 sont de même couleur mais B1 et B2 ont des valeurs différentes, malgré ma présence de Application.Volatile dans la fonctions.
CQFD
11/03/2019, 12h44
Algoplus

J'ai usé d'un raccourci en disant "recalculer à la modification de n'importe quelle cellule et notamment la couleur de fond."

Effectivement ce n'est pas le changement de couleur de fond, mais le fait d' "entrer" dans une cellule qui sera pris en compte par la fonction ayant l'instruction application.volatile.

A priori, il existe dans les versions récentes d'Excel (je suis toujours sous XL2003) des fonctions natives qui permettent des "calculs" en fonction de la couleurs de fond. Sont-elles plus fiables ?
11/03/2019, 14h21
Menhir

Citation:

Envoyé par Algoplus

A priori, il existe dans les versions récentes d'Excel (je suis toujours sous XL2003) des fonctions natives qui permettent des "calculs" en fonction de la couleurs de fond. Sont-elles plus fiables ?

Je suis sûr que ça n'existe pas en 2013.
Je viens de scruter les fonctions "post-2013" et je n'ai rien vu qui corresponde à ça.
Pour ceux qui veulent vérifier par eux-mêmes : https://support.office.com/fr-FR/art...6-C6D90033E188

Si tu veux parler de l'option "couleur" de la fonction CELLULE(), elle ne fait pas référence à la couleur de fond mais au second paramètre d'un format Nombre.
https://support.office.com/fr-FR/art...f-955d67c2b2cf
11/03/2019, 15h20
Algoplus

J'avais cru lire cette info sur je ne sais quel forum.

Par contre j'ai retrouvé dans mes archives un lien qui donne une astuce permettant (au moins depuis XL2003) d'afficher la couleur (colorindex) d'une cellule par formule : en utilisant CELLULE()
11/03/2019, 15h58
Patrice740

@Algoplus :

Citation:

Envoyé par Menhir

JSi tu veux parler de l'option "couleur" de la fonction CELLULE(), elle ne fait pas référence à la couleur de fond mais au second paramètre d'un format Nombre.
https://support.office.com/fr-FR/art...f-955d67c2b2cf

Citation:

Envoyé par Algoplus

Par contre j'ai retrouvé dans mes archives un lien qui donne une astuce permettant (au moins depuis XL2003) d'afficher la couleur (colorindex) d'une cellule par formule : en utilisant CELLULE()

Comme l'a dit Menhir (:coucou:) c'est pas le ColorIndex, c'est la couleur du format numérique, cf l'aide :

"couleur" la valeur 1 si la cellule est mise en forme en couleur pour les valeurs négatives, sinon renvoie 0 (zéro).
11/03/2019, 16h31
Menhir

En fait, ça n'indique même pas la couleur.
Ca indique juste "1" si dans le format Nombre, la couleurs des positifs et des négatifs est différente ("0" dans tous les autres cas).
11/03/2019, 17h51
Algoplus

J'ai bien compris que =CELLULE("Couleur";C2) ne ramenait pas la couleur de cellule!

En utilisant la méthode du lien à base de CELLULE() ( il n'y a pas l'utilisation de "couleur") j'obtiens le même résultat qu'avec ce bout de code :

Code:

MsgBox Selection.Interior.ColorIndex

c'est pour ça que je parlais de ColorIndex
11/03/2019, 18h56
eriiic

Bonjour,

Citation:

Remarque : la colonne G correspond à la séance 1,la colonne H correspond à la séance 2, etc...

tu peux te contenter d'y mettre un "x" (ou le nom selon comment est ta feuille).
Qui te servira à mettre la couleur avec une MFC, et tu n'as plus qu'à compter tes "x" avec un nbval().
Ca sera toujours à jour sans à avoir F9 à faire.
eric
11/03/2019, 19h01
Menhir

Citation:

Envoyé par eriiic

tu peux te contenter d'y mettre un "x" (ou le nom selon comment est ta feuille).
Qui te servira à mettre la couleur avec une MFC, et tu n'as plus qu'à compter tes "x" avec un nbval().

Pour ajouter un petit complément à la solution d'eriiic ( :coucou: ), si ta MFC met de la même couleur le texte et le fond de cellule, le "x" disparaitra (visuellement) et l'illusion sera parfaite.