Discussion :

[juxantof]

Bonjour à tous et à toutes,

J'aimerai savoir comment faire un calcul en fonction de la couleur d'une cellule ?

exemple SI A1=couleur "X" ou X représente une couleur quelconque alors B2=C1*D4

Merci par avance.

[Philippe Tulliez]

Bonjour,
Tu crées d'abord une fonction personnalisée qui renvoie le code RNG de la cellule de référence

Code :

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

1
2
3
4
Function CodeColor(rng As Range) As Long
 Application.Volatile
 CodeColor = rng.Interior.Color
End Function

Ensuite tu exploites cette fonction comme n'importe quelle fonction d'excel.
Comme tu veux comparer le code couleur d'une cellule par rapport à un code couleur particulier, j'ai tendance à utiliser une cellule de référence, ainsi si le client change d'humeur ou devient daltonien, je change simplement la couleur de la cellule de référence.

Exemple simple

Code :

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

=SI(CodeColor(A2)=CodeColor($J$2);C2*20;0)

Comme il s'agit de renvoyer le résultat d'une multiplication si le test logique est VRAI et 0 dans la case contraire, il y a évidemment plus simple et plus rapide

Code :

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

=(CodeColor(A2)=CodeColor($J$2)) * (C2*20)

Attention que le changement de couleur n'est pas considéré comme un événement enclenchant un nouveau calcul sauf si on utilise le pinceau ou si l'on fait un Copier/Collage spécial-Format

[Pierre Fauconnier]

Salut,

J'ajoute mon grain de sel à l'excellente réponse de Philippe (Salut Philippe ).

Il me semble toujours dangereux de traiter les couleurs comme des données, surtout lorsque des résultats de formules en dépendent. J'aurais tendance à privilégier la saisie d'une donnée dans la cellule (par liste de validation, éventuellement) donnant lieu à une mise en forme conditionnelle pour la couleur si on veut un indicateur visuel). Il suffit alors de tester la valeur de la cellule colorée par MFC.

Ca a l'avantage de ne pas exiger du VBA "juste pour ça"... Ce n'est pas par hasard qu'Excel n'offre pas de fonctions pour traiter les couleurs comme des données. C'est simplement parce qu'à la base, c'est une ineptie (considération technique et nullement attaque ad hominem bien sûr)

[Menhir]

Je confirme les excellentes réponses de mes deux camarades : utiliser la couleur comme donnée d'entrée dans Excel est une très mauvaise idée.
C'est un des marronniers de ce forum.

Même la solution proposée par Philippe de faire une fonction personnalisée en VBA est boiteuse car, comme il le dit lui-même, le changement de couleur n'est pas considéré comme un événement enclenchant un nouveau calcul.
Donc, même avec Application.Volatile dans le code, le fonctionnement ne sera pas convenable. Par contre, si tu utilises cette fonction en grand nombre dans une feuille, ça va énormément ralentir l'exécution et la rendre désagréable à utiliser. Je parle d'expérience, ayant déjà déployé cette solution.

Je rajouterai que si la couleur en question est issue d'une mise en forme conditionnelle, cette solution ne fonctionnera pas, puisque Interior.Color donne la couleur de base de la cellule.
Et la propriété DisplayFormat qui permette de connaitre la couleur issue d'une MFC, n'est pas applicable dans une fonction.
Mieux vaut, dans ce cas, utiliser directement la condition se trouvant dans la MFC.