Suivre le cours d’une action

Sur de nombreux sites de bourse ou de conseils financiers, en particulier sur la page d’accueil de Boursorama, on dispose du graphe d’un cours qui, quand on déplace le curseur dessus, marque le point sur le graphe et indique le cours et l’heure.

Voyez donc cela sur le site : http://www.boursorama.com/bourse/

Un lecteur me demandait récemment si l’on pouvait faire cela dans Excel. Je n’ai pas trouvé de solution simple pour le faire, mais j’ai quand même une solution sympathique à vous proposer, qui atteint une bonne partie de l’objectif.

Nous créons un ascenseur attribuant à la cellule C1, nommée Pos, une valeur de 1 à 25. Pour la création de l’ascenseur, reportez-vous à l’article précédent…

Nous entrons en C2 la formule ="Valeur en "&texte(index(A:A;C1);"mmmm aaaa")&" : "&texte(index(B:B;C1);"0 €"), et nous donnons ce titre au graphe.

Il ne reste plus qu’à créer la macro événementielle suivante, liée à la feuille actuelle :

Private Sub Worksheet_Calculate()

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.SeriesCollection(1).Select

ActiveChart.SeriesCollection(1).Points(Range("Pos")).Select

End Sub

Dès que l’on utilise l’ascenseur, cela modifie la valeur de C1 et active donc la macro, mettant en relief le point sélectionné. Comme nous le voyons dans l’image ci-dessus, le point à 79 € de juillet 2010 est aussitôt mis en relief.

Remarque – Le seul petit problème est que le point précédent est lui aussi – quoique un peu moins – mis en relief. Vous le verrez mieux en agrandissant cette copie d’écran à l’aide d’un double clic dessus : )

Si un lecteur peut nous proposer une macro faisant exactement comme sur le site de Boursorama, je serai ravi de publier sa solution !