Automatisation des tableaux de bord avec Excel

Le graphique dépend d'un formulaire dont les choix sont stockés dans deux cellules liées (ici H28 et H33). Excepté son titre, il est automatiquement mis à jour quand on change d'indicateur car les informations représentées proviennent de formules (voir section consultation) qui sont alors recalculées.

Le bouton de commande Actualiser, associé à la macro actualiser_graphique, permet d'actualiser le titre du graphique et de changer de courbes.

Sub actualiser_graphique()
    ' activation du graphique
    Set g = Worksheets("synthese")
    g.ChartObjects(1).Activate
    ' titre graphique (d'après cellule liée H28)
    If (g.Range("H28").Value = 1) Then
        ActiveChart.ChartTitle.Text = "nombre de blessés graves"
    ElseIf (g.Range("H28").Value = 2) Then
        ActiveChart.ChartTitle.Text = "nombre de blessés légers"
    Else
        ActiveChart.ChartTitle.Text = "nombre de blessés"
    End If
    ' courbes (d'après cellule liée H33)
    If (g.Range("H33").Value = 1) Then
        ActiveChart.SetSourceData Source:=g.Range("A1:C13")
    Else    ' moyenne mobile
        ActiveChart.SetSourceData Source:=g.Range("A1:B13,E1:E13")
    End If
End Sub

4.3. Graphique et formulaire