Plusieurs graphes sur la meme feuille

jl.guitard a écrit :

Bonjour,

Question bête... sur une feuille graphique ou sur une feuille de calcul ?

--
François L

Bonjour,

Je souhaiterai pouvoir placer plusieurs graphes sur la feuille 1, les
données étant sur la feuille 2
Idéalement il faudrait 2 graphes en largeur de feuille, le nombre de graphes
verticaux dependra du nombre de données
ceci bien sur en VBA, si quelqu'un à une idée ou un exemple dejà vu sur
internet, je suis preneur.
Merci d'avance à ceux qui répondront.
Bonne soirée

Sur une feuille de calcul, comme je l'indique la Feuil1
Merci si vous savez
"Francois L" <gardiendephare@etbalises.fr.invalid> a écrit dans le message
de news: eVoOJnH2IHA.4004@TK2MSFTNGP03.phx.gbl...

jl.guitard a écrit :

Bonjour,

Question bête... sur une feuille graphique ou sur une feuille de calcul ?

--
François L

Bonjour,

Je souhaiterai pouvoir placer plusieurs graphes sur la feuille 1, les
données étant sur la feuille 2
Idéalement il faudrait 2 graphes en largeur de feuille, le nombre de
graphes verticaux dependra du nombre de données
ceci bien sur en VBA, si quelqu'un à une idée ou un exemple dejà vu sur
internet, je suis preneur.
Merci d'avance à ceux qui répondront.
Bonne soirée

jl.guitard a écrit :

Sur une feuille de calcul, comme je l'indique la Feuil1
Merci si vous savez

Bonjour,

Une feuille graphique pourrait se nommer "Feuil1" :o)

En supposant que Feuil1 et Feuil2 existent, mettre des valeurs
quelconques dans Feuil2!A1:B12

Coller la procédure suivante dans un module standard et l'exécuter.


Sub graph()
' creation du 1er graphique
Charts.Add
With ActiveChart
.ChartType = xlColumnClustered
.SetSourceData Source:=Sheets("Feuil2").Range("A1:A12")
.Location Where:=xlLocationAsObject, Name:="Feuil1"
End With

' positionnement
With Sheets("Feuil1")
.ChartObjects(ActiveChart.Parent.Name).Name = "GRA1"
.ChartObjects("GRA1").Left = .Columns("A").Left
.ChartObjects("GRA1").Top = .Rows("2").Top
End With

' creation du 2eme graphique
Charts.Add
With ActiveChart
.ChartType = xlColumnClustered
.SetSourceData Source:=Sheets("Feuil2").Range("B1:B12")
.Location Where:=xlLocationAsObject, Name:="Feuil1"
End With

' positionnement
With Sheets("Feuil1")
.ChartObjects(ActiveChart.Parent.Name).Name = "GRA2"
.ChartObjects("GRA2").Left = .Columns("H").Left
.ChartObjects("GRA2").Top = .Rows("2").Top
End With
Sheets("Feuil1").Activate
End Sub


--
François L

"Francois L" <gardiendephare@etbalises.fr.invalid> a écrit dans le message
de news: eVoOJnH2IHA.4004@TK2MSFTNGP03.phx.gbl...

jl.guitard a écrit :

Bonjour,

Question bête... sur une feuille graphique ou sur une feuille de calcul ?

--
François L

Bonjour,

Je souhaiterai pouvoir placer plusieurs graphes sur la feuille 1, les
données étant sur la feuille 2
Idéalement il faudrait 2 graphes en largeur de feuille, le nombre de
graphes verticaux dependra du nombre de données
ceci bien sur en VBA, si quelqu'un à une idée ou un exemple dejà vu sur
internet, je suis preneur.
Merci d'avance à ceux qui répondront.
Bonne soirée

jl.guitard a écrit :

Re,

Sinon en complément, aller voir chez J.Peltier

http://peltiertech.com/Excel/ChartsHowTo/QuickChartVBA.html

--
François L

Sur une feuille de calcul, comme je l'indique la Feuil1
Merci si vous savez
"Francois L" <gardiendephare@etbalises.fr.invalid> a écrit dans le message
de news: eVoOJnH2IHA.4004@TK2MSFTNGP03.phx.gbl...

jl.guitard a écrit :

Bonjour,

Question bête... sur une feuille graphique ou sur une feuille de calcul ?

--
François L

Bonjour,

Je souhaiterai pouvoir placer plusieurs graphes sur la feuille 1, les
données étant sur la feuille 2
Idéalement il faudrait 2 graphes en largeur de feuille, le nombre de
graphes verticaux dependra du nombre de données
ceci bien sur en VBA, si quelqu'un à une idée ou un exemple dejà vu sur
internet, je suis preneur.
Merci d'avance à ceux qui répondront.
Bonne soirée