La feuille graphiques du classeur ex_final.xlsm
propose 3 boutons de commande permettant d'exécuter les tâches suivantes :
-
passer d'un diagramme en barres à une courbe.
-
passer d'une courbe à un diagramme en barres.
-
actualiser la source de données du graphique.
Comme nous effectuerons des tâches similaires dans nos futurs tableaux de bord, nous allons
commenter les programmes Visual Basic associés à ces boutons.
La macro graphique_courbe (respectivement graphique_histogramme) sélectionne la feuille graphiques, puis active
le graphique de cette feuille avant d'en changer le type avec la constante numérique xlLineMarkers
(respectivement xlColumnClustered pour un diagramme en barres).
Sub graphique_courbe()
Sheets("graphiques").Select
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartType = xlLineMarkers
End Sub
La notation ActiveSheet.ChartObjects(1) désigne le premier (et ici seul) graphique de la feuille de calcul.
La troisième macro, qui actualise la source de données grâce à la méthode SetSourceData, calcule auparavant le nombre
de valeurs de la colonne A :
Sub graphique_source()
Sheets("graphiques").Select
ActiveSheet.ChartObjects(1).Activate
Set F = Worksheets("facture")
n = WorksheetFunction.CountA(F.Columns("A"))
ActiveChart.SetSourceData Source:=F.Range(F.Cells(1, 1), F.Cells(n, 2))
' ou : ActiveChart.SetSourceData Source:=F.Range("A1:B" & n)
End Sub