Comment extraire des données d'un graphique ou d'un diagramme dans Excel ?

Les graphiques dans Excel sont largement utilisés pour visualiser les données et les tendances de manière plus efficace. Cependant, il peut arriver que vous n'ayez accès qu'à un graphique sans disposer des données originales, comme le montre l'exemple ci-dessous. Dans de tels cas, extraire les données du graphique peut être essentiel. Ce tutoriel fournit un guide étape par étape pour récupérer des données d'un graphique ou d'un diagramme dans Excel à l'aide de code VBA.

Extraire des données d'un graphique avec VBA

  Extraire des données d'un graphique avec VBA

1. Vous devez créer une nouvelle feuille de calcul et la renommer en "ChartData". Voir capture d'écran :

2. Sélectionnez le graphique à partir duquel vous souhaitez extraire les données. Appuyez simultanément sur les touches "Alt" + "F11" pour ouvrir la fenêtre "Microsoft Visual Basic pour Applications".

3. Cliquez sur "Insérer" > "Module", puis collez le code VBA ci-dessous dans la fenêtre "Module".

Sub GetChartValues()
    'Updateby20220510
    Dim xNum As Integer
    Dim xSeries As Object
    On Error Resume Next
    xCount = 2
    xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values)
    Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
    With Application.Worksheets("ChartData")
        .Range(.Cells(2, 1), _
        .Cells(xNum + 1, 1)) = _
        Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
    End With
    For Each xSeries In Application.ActiveChart.SeriesCollection
        Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
        With Application.Worksheets("ChartData")
            .Range(.Cells(2, xCount), _
            .Cells(xNum + 1, xCount)) = _
            Application.WorksheetFunction.Transpose(xSeries.Values)
        End With
        xCount = xCount + 1
    Next
End Sub

4. Ensuite, cliquez sur le bouton "Exécuter" pour exécuter le VBA. Voir capture d'écran :

Vous pouvez ensuite voir les données extraites vers la feuille "ChartData".

Astuce :

1. Vous pouvez formater les cellules selon vos besoins.

2. Par défaut, les données du graphique sélectionné sont extraites à partir de la première cellule de la feuille ChartData.