Probleme creation graph

[Phillaak]

Bonjou a tous voici mon code :
Sub CreateChart()

Dim note As String
Dim mysheetname As String
Dim myrange As Range
Dim datev As Range
Dim spot As Range
Dim mrv As Range

For i = 1 To 5
note = "GG"
mysheetname = "mm50" & note
Sheets(mysheetname).Range("c4").Select
Set datev = Range(Cells(1, 1), Cells(2510, 1))
Set mrv = Range(Cells(1, i + 1), Cells(2510, i + 1))
Set spot = Range(Cells(1, i + 6), Cells(2510, i + 6))
Set myrange = Union(datev, spot, mrv)

Selection.CurrentRegion.Select
myrange = Selection.Address
ActiveSheet.ChartObjects.Add(125.25, 60, 301.5, 155.25).Select
Application.CutCopyMode = False
ActiveChart.ChartWizard _
Source:=Sheets(mysheetname).Range(myrange), _
Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _
CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _
Title:="", CategoryTitle:="", _
ValueTitle:="", ExtraTitle:=""
Next i
End Sub

Le probleme etant que l erreur 424 arrive dans la toute derniere partie du code...
Si vous savez pourquoi cela m'aiderait enormement...
De plus si cela marche j'aimerais pouvoir les générer directement en ppt...
Merci d'avance

 

[PMO2]

Re : Probleme creation graph

Bonjour,

Peut-être

Sub CreateChart()
Dim note As String
Dim mysheetname As String
Dim myrange As Range
Dim datev As Range
Dim spot As Range
Dim mrv As Range
Dim i As Long
Dim CH As Chart
For i = 1 To 5
note = "GG"
  mysheetname = "mm50" & note
  Sheets(mysheetname).Range("c4").Select
  Set datev = Range(Cells(1, 1), Cells(2510, 1))
  Set mrv = Range(Cells(1, i + 1), Cells(2510, i + 1))
  Set spot = Range(Cells(1, i + 6), Cells(2510, i + 6))
  Set myrange = Union(datev, spot, mrv)
  Set CH = Charts.Add
  CH.ChartType = xlLine
  CH.SetSourceData Source:=myrange
  CH.Location Where:=xlLocationAsObject, Name:=mysheetname
Next i
End Sub

Cordialement.

PMO
Patrick Morange

 

[Phillaak]

Re : Probleme creation graph

merci mais je suis passé par une autre méthode car j'etais préssé...
Mais merci quand meme