Comment extraire les données d’un graphique ou d’un diagramme dans Excel ?
Les graphiques Excel sont largement utilisés pour visualiser efficacement les données et leurs tendances. Cependant, il arrive parfois que vous n’ayez accès qu’au graphique lui-même, sans les données sources — comme dans l’exemple ci-dessous. Dans ce cas, extraire les données directement depuis le graphique devient indispensable. Ce tutoriel vous explique pas à pas comment récupérer les données d’un graphique ou d’un diagramme dans Excel à l’aide d’un code VBA.
Extraire les données d’un graphique avec VBA
1. Créez une nouvelle feuille de calcul et renommez-la « ChartData ». Voir la capture d’écran :
2. Sélectionnez le graphique dont vous souhaitez extraire les données, puis appuyez simultanément sur les touches « Alt » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
3. Cliquez sur « Insertion » > « Module », puis collez le code VBA ci-dessous dans la fenêtre du 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. Cliquez ensuite sur le bouton « Exécuter » pour lancer le code VBA. Voir la capture d’écran :
Vous pouvez alors constater que les données ont été extraites dans la feuille « ChartData ».
Astuce :
1. Vous pouvez formater les cellules exactement comme vous le souhaitez.
2. Par défaut, les données du graphique sélectionné sont extraites de la première cellule de la feuille ChartData.
Astuce : si vous travaillez fréquemment avec des graphiques complexes dans Excel, les recréer à chaque fois peut s’avérer fastidieux. Grâce à l’outil « Texte automatique » de « Kutools pour Excel », vous pouvez simplifier ce processus. Créez vos graphiques une seule fois, ajoutez-les au volet Texte automatique, puis réutilisez-les à tout moment et en tout lieu. Il vous suffit ensuite de mettre à jour les références pour les adapter à vos besoins spécifiques.
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant |
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels