Insérer graphique avec une taille et un emplacement prédéfini

[Tomy137]

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:

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

.Name = "Tomy137"

Merci d'avance pour votre aide !

 

[jpb388]

Re : Insérer graphique avec une taille et un emplacement prédéfini

Bonjour ou Bonsoir à tous
au lieu de

 Range("cel1:cel2").Select

met

 Range(cel1 & ":" & cel2").Select

rectifie partout