EXcel - graphique simple
Fermé
olive60
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
-
17 mars 2008 à 12:32
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 - 18 mars 2008 à 18:38
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 - 18 mars 2008 à 18:38
A voir également:
- EXcel - graphique simple
- Liste déroulante excel - Guide
- Graphique excel - Guide
- Changer carte graphique - Guide
- Graphique camembert excel - Guide
- Iphone 14 simple - Guide
1 réponse
LePierre
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
338
18 mars 2008 à 18:38
18 mars 2008 à 18:38
insère une colonne entre les colonnes A et B.
la ligne 1 contient les titres pour chaque colonne (Entreprise, Marge, EBIT, CA)
calcule la marge (=EBIT/CA) dans les cellules de la nouvelle colonne B
(par exemple en cellule "B2" tu auras : =C2/D2)
voici le code correspondant obtenu en mode enregistrement pour des données comprises dans A1-D4 (que tu devras adapter à tes données) :
Sub Macro1()
Range("A1:B4").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:B4"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Marge"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
la ligne 1 contient les titres pour chaque colonne (Entreprise, Marge, EBIT, CA)
calcule la marge (=EBIT/CA) dans les cellules de la nouvelle colonne B
(par exemple en cellule "B2" tu auras : =C2/D2)
voici le code correspondant obtenu en mode enregistrement pour des données comprises dans A1-D4 (que tu devras adapter à tes données) :
Sub Macro1()
Range("A1:B4").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:B4"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Marge"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub