Automatisation des graphiques

• AddChart2 crée la forme du graphique — Style:=201 sélectionne un style visuel intégré, XlChartType:=xlColumnClustered choisit un graphique en colonnes standard, et Left/Top/Width/Height positionnent et dimensionnent le graphique sur la feuille en points, l’unité qu’Excel utilise en interne pour le placement des formes ;
• AddChart2 retourne en réalité un objet Chart, et non le conteneur ChartObject autour de celui-ci — le .Chart.Parent à la fin de cette ligne permet de remonter jusqu’au conteneur, qui est le type dans lequel chartObj est déclaré ; cette particularité est facile à oublier et il est recommandé de la copier exactement ;
• SetSourceData indique à la forme du graphique, qui est vide par défaut, quelles données tracer — en le pointant vers tbl.ListColumns("Profit").Range, cela trace la colonne Profit pour chaque ligne visible du tableau ;
• HasTitle = True doit être défini avant d’assigner ChartTitle.Text — essayer de définir le texte du titre sur un graphique qui n’a pas encore de titre échouera.

1. Exécution de BuildProfitChart

• Copier la Sub exactement comme indiqué dans le chapitre et l’exécuter — aucune modification n’est nécessaire pour cette partie.
• Un graphique doit apparaître sur la feuille Reports, affichant le Profit pour chaque ligne actuellement visible dans le tableau.

2. Coloration des barres et suppression de la légende

• Les deux propriétés appartiennent à l’objet graphique, et non à la feuille de calcul — chartObj.Chart est votre point d’entrée, comme dans l’exemple de mise en forme du chapitre.
• La couleur des barres se trouve sur SeriesCollection(1), puisqu’il n’y a qu’une seule série de données tracée (Profit) — .Format.Fill.ForeColor.RGB est la propriété spécifique à définir.
• La suppression de la légende est une propriété booléenne unique (HasLegend), distincte de la ligne de couleur de remplissage.

3. Filtrage et réexécution de SetSourceData

• Appliquer un AutoFilter sur Month (Field:=1) restreint à "January" — même technique que dans la section 4.2.
• Appeler ensuite à nouveau SetSourceData avec exactement la même expression tbl.ListColumns("Profit").Range que dans BuildProfitChart — rien n’a besoin d’être modifié dans cette ligne.
• Observer attentivement ce qui se passe ensuite sur le graphique : se réduit-il aux cinq régions de janvier uniquement, ou affiche-t-il toujours les quinze lignes, y compris celles que l’AutoFilter vient de masquer ? Cette observation est le véritable objectif de cette tâche, pas seulement l’exécution du code.

Option Explicit

' Point 1 — run this exactly as shown in the chapter
Sub BuildProfitChart()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set tbl = ws.ListObjects("tblReports")

    Set chartObj = ws.Shapes.AddChart2(Style:=201, _
        XlChartType:=xlColumnClustered, _
        Left:=400, Top:=20, Width:=400, Height:=250).Chart.Parent

    With chartObj.Chart
        .SetSourceData Source:=tbl.ListColumns("Profit").Range
        .HasTitle = True
        .ChartTitle.Text = "Profit by Region"
    End With
End Sub

' Point 2 — color the bars and remove the legend
Sub FormatProfitChart()
    Dim ws As Worksheet
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set chartObj = ws.ChartObjects(1)

    With chartObj.Chart
        .SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(24, 106, 60)
        .HasLegend = False
    End With
End Sub

' Point 3 — filter to January, then re-point the chart at the same range
Sub FilterJanuaryAndRefreshChart()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim chartObj As ChartObject

    Set ws = ThisWorkbook.Worksheets("Reports")
    Set tbl = ws.ListObjects("tblReports")
    Set chartObj = ws.ChartObjects(1)

    tbl.Range.AutoFilter Field:=1, Criteria1:="January"

    chartObj.Chart.SetSourceData Source:=tbl.ListColumns("Profit").Range
End Sub

Exécuter ces macros dans l’ordre : BuildProfitChart, puis FormatProfitChart, puis FilterJanuaryAndRefreshChart. Pour le point 3 en particulier — prêter attention à ce qui se passe réellement. Les graphiques Excel respectent généralement un AutoFilter actif, masquant automatiquement les barres des lignes filtrées, même sans relancer SetSourceData. Le relancer ici sert surtout à confirmer que le graphique pointe toujours vers la colonne complète — c’est le filtre lui-même qui masque visuellement, pas l’appel à SetSourceData. Il est intéressant de tester avec le filtre activé et désactivé pour constater la différence.