mistercoke
XLDnaute Junior
Bonjour, après avoir fouillé dans le forum pour arriver à mes fins, je me retourne vers vous car je n'arrive pas à mettre en application l'exemple.
J'ai une base donnée qui évolue chaque jour à partir de laquelle j'effectue un graphique à point.
Je souhaiterais mettre les points en vert pour toutes les valeurs infèrieures, en orange pour toutes les valeurs intermédiaires et rouge supèrieures, ce à partir de la couleur de la cellule.
Ce cas est possible via cette astuce de :Formation Excel VBA JB
************************************
Sub ModifCouleur2()
ActiveSheet.ChartObjects(1).Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = _
ActiveSheet.Cells(i + 1, 1).Interior.ColorIndex
Next i
End Sub
*************************************
mais je n'arrive pas à le mettre en application sur mon cas.
Quelqu'un peut-il me le réaliser afin que je comprenne le fonctionnement ?
Je pars chercher mes puces à l'école et je reprends le fil ensuite.
D'avance merci pour votre aide.
J'ai une base donnée qui évolue chaque jour à partir de laquelle j'effectue un graphique à point.
Je souhaiterais mettre les points en vert pour toutes les valeurs infèrieures, en orange pour toutes les valeurs intermédiaires et rouge supèrieures, ce à partir de la couleur de la cellule.
Ce cas est possible via cette astuce de :Formation Excel VBA JB
************************************
Sub ModifCouleur2()
ActiveSheet.ChartObjects(1).Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = _
ActiveSheet.Cells(i + 1, 1).Interior.ColorIndex
Next i
End Sub
*************************************
mais je n'arrive pas à le mettre en application sur mon cas.
Quelqu'un peut-il me le réaliser afin que je comprenne le fonctionnement ?
Je pars chercher mes puces à l'école et je reprends le fil ensuite.
D'avance merci pour votre aide.