Dernier graphe en ligne coloré

Une excellente année 2014 !

Tout d’abord, je tiens à vous souhaiter une excellente année 2014 !

Pour la part, elle a débuté avec une bonne nouvelle : Microsoft m’a une fois encore attribué le titre de « MVP Excel », en reconnaissance de mon action autour d’Excel, en particulier via ce blog.

-------------------------------------------------------------------------------------

Dans le dernier article, nous avons vu comment le Frankens team résolvait le problème de la création d’un graphe en ligne coloré.

De fait, ils ne cherchaient pas à faire exactement le même graphe que nous avec des segments en vert (hausse), bleu (stabilité) et rouge (décroissance).

Dans leur cas, le bleu était remplacé par du jaune pour indiquer une croissance faible ou une décroissance faible. Le seuil en absolu en dessous duquel on utilisait le jaune était identifié par la valeur en B2.

Nous avons aussi légèrement modifié la définition de « Zone » pour ne pas avoir un point en trop à droite : =decaler( Graphe!$A$2;;;nbval(decaler( Graphe!$A$2;;;100))-1)

Nous voyons l’effet de tout cela sur la copie d’écran ci-dessous.

Voici en prime une petite macro qui nous a permis de modifier les bornes de l’axe des ordonnées afin de représenter le graphe sur la plus grande surface possible.

Sub Axe_Y()

    ActiveSheet.ChartObjects("Graphique  1").Activate

    ActiveChart.Axes(xlValue).MinimumScale = Range("D2").Value - 1

    ActiveChart.Axes(xlValue).MaximumScale = Application.Max(Range("A:A")) + 1

End Sub