Bonjour,
J'ai un code vba qui doit me generer 2 graphiques sur un fichier excel 2007 et le code s'arrete à la ligne ActiveChart.ChartType = xlLineMarkers
du deuxieme graphique et je ne sais pas pourquoi ????
Ca fait des heures que je cherche et je suis entrain de devenir folle !!!
Est ce quelqu'un aurait une idée à mon probleme ??? Je rappelle que je suis sur excel 2007
Merci
Malka
J'ai un code vba qui doit me generer 2 graphiques sur un fichier excel 2007 et le code s'arrete à la ligne ActiveChart.ChartType = xlLineMarkers
du deuxieme graphique et je ne sais pas pourquoi ????
Ca fait des heures que je cherche et je suis entrain de devenir folle !!!
Est ce quelqu'un aurait une idée à mon probleme ??? Je rappelle que je suis sur excel 2007
Merci
Malka
VB:
Sub Graphique()
Application.ScreenUpdating = False
y = ActiveCell.Row
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Sheets("Paramètres").Range("H1:T1,H2:T5")
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetElement (msoElementChartTitleAboveChart)
'ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartTitle.Text = Application.Trim(Sheets("UO").Range("C" & y)) & " / " & Application.Trim(Sheets("UO").Range("B" & y))
ActiveChart.ChartArea.Select
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Montant en €"
ActiveChart.ChartArea.Select
ActiveChart.Location Where:=xlLocationAsObject, Name:="UO"
With Sheets("UO").ChartObjects(1)
.Top = Range("BF" & y + 2).Top
.Left = Range("B" & y).Left
End With
ActiveChart.SetSourceData Source:=Sheets("Paramètres").Range("H16:T16,H20:T20,H24:T24,H28:T28,H32:T32")
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetElement (msoElementChartTitleAboveChart)
'ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartTitle.Text = Application.Trim(Sheets("UO").Range("C" & y)) & " / " & Application.Trim(Sheets("UO").Range("B" & y))
ActiveChart.ChartArea.Select
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Montant en €"
ActiveChart.ChartArea.Select
ActiveChart.Location Where:=xlLocationAsObject, Name:="UO"
With Sheets("UO").ChartObjects(2)
.Top = ActiveSheet.ChartObjects(1).Top
.Left = ActiveSheet.ChartObjects(1).Left + ActiveSheet.ChartObjects(1).Width + 2
End With
Application.ScreenUpdating = True
End Sub
Dernière édition: