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