Copier la couleur de MFC dans une cellule

Fermé
ValentinChouq Messages postés 2 Date d'inscription mardi 24 juillet 2012 Statut Membre Dernière intervention 24 juillet 2012 - Modifié par ValentinChouq le 24/07/2012 à 15:52
ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 - 24 juil. 2012 à 19:03
Bonjour,

J'ai recherché mon problème sur le forum, mais je ne l'ai pas trouvé en identique. Les solutions proposées ne résolvent pas mon problème.
Je m'explique :

Des coefficients sont calculés dans les cellules H6 à K6.
La somme de ces valeurs est calculée en G6.
J'applique une mise en forme conditionnelle (MFC) à ces valeurs sous forme d'échelle à trois couleurs, du vert au rouge foncé.
En B6, il y a une phrase

J'aimerais que cette cellule prenne la même couleur que la cellule où la MFC est appliquée (G6).

J'ai essayé avec du VBA. Le plus concluant est en utilisant ce code :

Private Sub CommandButton1_Click()
Range("B6").Interior.ColorIndex = Range("G6").Interior.ColorIndex
End Sub


Le problème est que c'est la couleur d'origine, avant la MFC, qui est copié.

Merci d'avance ;)
A voir également:

3 réponses

ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 2 429
24 juil. 2012 à 16:18
bonjour

si j'ai compris, il te faut utiliser une MFC sur G6 mais passer par la formule est et mettre les conditions sur les cellules soit par exemple

C6 est la cellule dont la MFC est à "recopier" dans B6
MFC sur C6 la valeur est comprise entre 1 et 2

MFC sur B6
la formule est
=ET(C6>=1;C6<=2) etc ....

attention aux $ si tu dois tirer cette cellule

bonne suite
0
ValentinChouq Messages postés 2 Date d'inscription mardi 24 juillet 2012 Statut Membre Dernière intervention 24 juillet 2012
24 juil. 2012 à 16:35
Merci beaucoup pour ta réponse rapide.

Tu as bien identifié mon problème, je pense. J'avais commencé en utilisant cette méthode, c'est-à-dire en créant une MFC pour chaque valeur possible de ma case G6 (effectivement, je dois dérouler après) que j'appliquais alors à la case de la colonne B correspondante.

Le problème est qu'aujourd'hui, mon fichier a évolué. D'autres coefficients sont apparues modifiant ainsi les valeurs possibles de G6. Demain, il est possible qu'elles changent encore. C'est pourquoi j'aimerais traiter mon problème de façon automatique.

Mon code VBA récupère le format de base de la cellule, mais pas le format de la MFC.

Encore merci.
0
ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 2 429
24 juil. 2012 à 19:03
après quelques recherches dans le site ....
un exemple - la fonction a été écrite par Vaucluse -

https://www.cjoint.com/?0Gyta0WXMnB

bonne suite
0