Pb graphique sur Excel 2007

Malka

XLDnaute Occasionnel
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

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:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG