Kouik Kouik jr
XLDnaute Occasionnel
Bonsoir tout le monde !
j'ai de nouveau un petit problème que je n'arrive pas a resoudre.
J'essaie de créer 3 graphiques dans la feuille "Chart" mais cela bloque sur la ligne de code
"ActiveSheet.Shapes.AddChart.Select" et je ne comprend pas pourquoi ?
Quelqu'un aurait il une idée ?
Mille merci d'avance
j'ai de nouveau un petit problème que je n'arrive pas a resoudre.
J'essaie de créer 3 graphiques dans la feuille "Chart" mais cela bloque sur la ligne de code
"ActiveSheet.Shapes.AddChart.Select" et je ne comprend pas pourquoi ?
Quelqu'un aurait il une idée ?
Mille merci d'avance
HTML:
Sub Macro2()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("Feuil2")
Range("A:A,H:H").Select
Range("H1").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("Feuil2!$A:$A;Feuil2!$H:$H")
ActiveChart.ChartType = xl3DLine
ActiveChart.Axes(xlCategory, xlSecondary).Select
Selection.Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
ActiveSheet.ChartObjects("Graphique 4").Activate
Sheets("Feuil2").Select
Range("J:J,M:M").Select
Range("M1").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("Feuil2!$J:$J;Feuil2!$M:$M")
ActiveChart.ChartType = xl3DLine
ActiveChart.Axes(xlCategory, xlSecondary).Select
Selection.Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
ActiveSheet.ChartObjects("Graphique 5").Activate
ActiveChart.ChartTitle.Select
Selection.Left = 154.147
Selection.Top = 0
ActiveSheet.ChartObjects("Graphique 5").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 5").Activate
ActiveChart.ChartTitle.Select
Selection.Left = 66.147
Selection.Top = 15
Sheets("Feuil2").Select
Columns("J:J").Select
ActiveWindow.SmallScroll ToRight:=3
Range("J:J,N:N").Select
Range("N1").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("Feuil2!$J:$J;Feuil2!$N:$N")
ActiveChart.ChartType = xl3DLine
ActiveChart.Axes(xlCategory, xlSecondary).Select
Selection.Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
ActiveSheet.ChartObjects("Graphique 6").Activate
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub