Pb graphique sur Excel 2007

[Malka]

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

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

 

[Malka]

Re : Pb graphique sur Excel 2007

Bonjour,

Pas de bonne surprise du matin.....
Up! Up! svp

Merci

Malka

 

[Malka]

Re : Pb graphique sur Excel 2007

Up ! Up ! 😎
SVP

Personne pour me donner une piste ... 🙁

Merci

Malka

 

[MJ13]

Re : Pb graphique sur Excel 2007

Bonjour Malka,

Et tu crois pas qu'avec ton petit fichier, on y verrait plus clair 😕.