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 (macro graphique_courbe).
• passer d'une courbe à un diagramme en barres (macro graphique_histogramme).
• actualiser la source de données du graphique (macro graphique_source).

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 (dans la variable n) :

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