Discussion :

[Novice72]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Cellule.Interior.Color = Couleur  Then

J'ai supprimé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[Menhir]

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

[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()

[Patrice740]

@Algoplus :

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

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 () 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).

[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).

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Selection.Interior.ColorIndex

c'est pour ça que je parlais de ColorIndex

[eriiic]

Bonjour,

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

[Menhir]

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 ( ), 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.