Discussion :

[simon13145]

Bonjour à tous,

Je suis tout nouveau, d'avance je m'excuse pour ma maladresse.

Voilà,

J'ai une liste déroulante avec des noms, à chaque nom est associé une mise en forme conditionnelle, du à chaque fois que je sélectionne un nom l'intérieur de la cellule change de couleur.

Avec ce nom j'ai des données qui sont liées et qui servent notamment à la génération de graphique (histogramme). Donc si je change de nom, les valeurs de mon graphique changent aussi.

A partir de là j'aimerais que les histogrammes (fond et lignes) changent de couleur en fonction de la cellule de référence. Autrement dit, j'aimerais que mes histogrammes soient de la même couleur que ma cellule.

J'ai donc enregistré une macro que voilà:

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
17
18
19
20
21
 
Sub Couleur_graph()
'
' Couleur_graph Macro
'
 
'
    Range("Q10").Select
    ActiveChart.SeriesCollection(1).Points(5).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(147, 17, 126)
        .Transparency = 0
        .Solid
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(147, 17, 126)
        .Transparency = 0
    End With
End Sub

J'ai bien essayé de la modifier en conséquence, mais sans succès...

Est-ce que quelqu'un aurait une solution?

Merci à vous

[Menhir]

Sujet maintes fois repris sur ce forum avec toujours la même conclusion : essaye une autre méthode.
On ne peut pas directement récupérer le résultat d'une MFC.

Essayer de récupérer la couleur résultant d'une MFC est théoriquement possible mais très compliqué.
Il faudrait scruter avec une boucle chaque règles de MFC, la décortiquer pour en récupérer la formule et la couleur du format correspondant puis tester la formule (si elle n'est pas trop compliquée) et appliquer le format en cas de résultat TRUE.

Il vaut mieux que tu reprennes les données de base (les noms) pour appliquer directement les couleurs en conséquence.

[simon13145]

Menhir,

Merci pour ta réponse.

J'ai aussi une feuille dans mon fichier Excel avec tous les codes RVB de chaque entité. Penses-tu que l'on peut faire quelque chose avec ça ???

[Menhir]

https://msdn.microsoft.com/fr-fr/lib.../ff836210.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff840499.aspx