EXCEL: de la matrice de données au graphique
edgar
-
edgar -
edgar -
Bonjour à tous,
je voudrais savoir s'il est possible de transformer directement une plage de données d'une feuille Excel en un graphique. Il ne s'agit pas dans cette démarche de dupliquer les données et d'insérer un graphique mais vraiment de transformer le format d'apparition des données pour récupérer un graphique à la place de la matrice.
Merci beaucoup de votre aide et bonne continuation.
je voudrais savoir s'il est possible de transformer directement une plage de données d'une feuille Excel en un graphique. Il ne s'agit pas dans cette démarche de dupliquer les données et d'insérer un graphique mais vraiment de transformer le format d'apparition des données pour récupérer un graphique à la place de la matrice.
Merci beaucoup de votre aide et bonne continuation.
A voir également:
- EXCEL: de la matrice de données au graphique
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
Merci
Peux tu décrire l'enchainement des actions (calcul matrice -> Excel -> infoview... ???)
a mon avis oui.
il faut forcement des reference au graphe pour qu'il existe donc il faut la matrice+le graphe.
je ne sait pas si cela peut te rendre service mais si la matrice te gonfle tu peut la camoufler en choisissant une couleur de police identique a la couleur de fond de ta feuille de calcul.
ainsi tu n'auras que le graphe apparant sur la feuille de calcul
Merci quand même
a) Où sont tes données ? Dans excel, dans un fichier à part
b) Où doit se trouver le bouton qui génère le graphe ? Dans excel, ailleur ?
c) Où doit apparaître le graphe
L'activation d'un graphe peut tjrs se faire en code, et excel peut-être activé par d'autres programmes.
Sub GrapheAvisUAP()
Dim titre As String
titre = "Permis d'urbanisme sur avis préalable du F.D."
Worksheets("StatUAP").Activate
Range("B1:B7,D1:D7").Select
Range("D1").Activate
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("StatUAP").Range("B1:B7,D1:D7"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Luxembourg - " + titre
End With
ActiveChart.HasLegend = False
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent, LegendKey _
:=False, HasLeaderLines:=True
AdapteGraphique