Discussion :

[bagheria85]

Bonjour,

Je pense que certains ont dû déjà le demander mais je ne trouve pas la solution.

J'ai juste:
K4 >>> "Pips"
K5 >>> "6"
K6 >>> "2"
K7 >>> "-2"

Sachant que K5, K6 et K7 changent tout le temps en fonction de l'évolution des cours de devises

J'y ai intégré des mises en forme conditionnelles. A savoir que si K5 > 0 alors la cellule s'allume en vert. Si K5 < 0 alors la cellule s'allume en rouge
Pareil pour les autres cellules.

J'ai ensuite une cellule qui fait la moyenne des autres et qui s'allume de la même manière (K8)

Un graphique en bâton est créé à partir de K8. Il évolue tout le temps. J'aimerais que la barre du graphique soit de la même couleur que la case K8 (vert si > 0 et rouge si < 0). Comment faire stp?

Merci à vous

Bag

[MolikDLuffy]

Bonjour,

Je pense avoir la solution en utilisant :

Code :

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

1
2
3
ActiveSheet.ChartObjects("Nom du Grap").Activate
ActiveChart.SeriesCollection(1).Select
....

Par contre il me faut un exemple sous format Excel afin que je puisse t'aider.

Merci de ton attention

[cb_60]

bonsoir
peut être cela?

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ChoixCouleur()
 
'selection du graph
ActiveSheet.ChartObjects(1).Activate
'prendre en compte le nombre de valeurde la serie 1
For I = 1 To ActiveChart.SeriesCollection(1).Points.Count
'boucle et mets en couleurs le graph ( en partant de la cellule 2 pour les couleurs I+1)
ActiveChart.SeriesCollection(1).Points(I).Interior.ColorIndex = ActiveSheet.Cells(I + 1, 1).Interior.ColorIndex
Next I
End Sub

[Menhir]

Code :

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

ActiveSheet.Cells(I + 1, 1).Interior.ColorIndex

Je n'ai pas analysé tout le code mais cette partie ne pourra pas fonctionner puisque la couleur de la cellule est issue d'une MFC.
Il faut utiliser DisplayFormat.
https://msdn.microsoft.com/fr-fr/lib.../ff838814.aspx
https://msdn.microsoft.com/fr-fr/VBA...t-object-excel

[cb_60]

bonsoir Menhir
Je n'est pas testé avec une MEFC, mais je vais tester ce soir avec le " Displayformat"
Merci

[cb_60]

Bonjour
Après les tests la macro donne cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ChoixCouleur()
 
 'selection du graph
 ActiveSheet.ChartObjects(1).Activate
 'prendre en compte le nombre de valeurde la serie 1
 For I = 1 To ActiveChart.SeriesCollection(1).Points.Count
 'boucle et mets en couleurs le graph ( en partant de la cellule 2 pour les couleurs I+1)
 ActiveChart.SeriesCollection(1).Points(I).Interior.ColorIndex = ActiveSheet.Cells(I + 1, 1).DisplayFormat.Interior.ColorIndex
 Next I
 End Sub

Ou alors cela si plusieurs graphiques sur la feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ChoixCouleur()
'Comptabilise le nombre de graph de la feuille
 nbgraph = ActiveSheet.ChartObjects().Count
'Inputbox indiquant le nombre de graph de la feuille et choix sur lequels nous souhaitons agir
 mavaleur = InputBox("Entrer une valeur. La valeur actuelle est " & nbgraph, "Question")
 'selection du graph
 ActiveSheet.ChartObjects(mavaleur).Activate
 'prendre en compte le nombre de valeurde la serie 1
 For I = 1 To ActiveChart.SeriesCollection(1).Points.Count
 'boucle et mets en couleurs le graph ( en partant de la cellule 2 pour les couleurs I+1)
 ActiveChart.SeriesCollection(1).Points(I).Interior.ColorIndex = ActiveSheet.Cells(I + 1, 1).DisplayFormat.Interior.ColorIndex
 Next I
 End Sub