Bonjour,
Au cours de mon projet, je fais apparaître une série de donnée puis un graph qui en découle.
Problème, mon graph se place plus ou moins n'importe où !
Mon code est le suivant:
Mais au moment de la compilation j'ai un message d'erreur 7 "Mémoire insuffisante" sur la ligne:
Merci d'avance pour votre aide !
Au cours de mon projet, je fais apparaître une série de donnée puis un graph qui en découle.
Problème, mon graph se place plus ou moins n'importe où !
Mon code est le suivant:
Code:
'Maintenant, soyons fou, un ptit graph !
'Je sélectionne mes quatre cellules importantes en fonction du numéro d'une ligne précédemment définie.
cel1 = Cells(Ligne + 1, 1).Address(0, 0)
cel2 = Cells(Ligne + 2, 2).Address(0, 0)
cel3 = Cells(Ligne - nb - 1, 5).Address(0, 0)
cel4 = Cells(Ligne - 2, 9).Address(0, 0)
'Je sélectionne les données pour mon graph
Range("cel1:cel2").Select
'Code magique pour graph (Trouvé en enregistrant sur Excel)
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
.ChartType = xlPie
.SetSourceData Source:=Range("Bonjour!$A$30:$B$31")
.SeriesCollection(1).Select
.ApplyLayout (1)
.ChartTitle.Select
.ChartTitle.Text = "Taux Global d'avancement"
.Name = "Tomy137"
End With
'On dimensionne et on place le joli graph'
With ActiveSheet.Shapes(Tomy137)
.Width = ActiveSheet.Range("cel3:cel4").Width
.Height = ActiveSheet.Range("cel3:cel4").Height
.Top = ActiveSheet.Range("cel3").Top
.Left = ActiveSheet.Range("cel3").Left
End With
Mais au moment de la compilation j'ai un message d'erreur 7 "Mémoire insuffisante" sur la ligne:
Code:
.Name = "Tomy137"
Merci d'avance pour votre aide !