ActiveChart Erreur d'éxecution 91

Bonjour,

Le but de mon code est de tracer une courbe, le voici:

Sub Trace ()
    Worksheets(Name).Shapes.AddChart.Select
    With ActiveChart
    .ChartType = xlXYScatter
    .SetSourceData Source:=Range( _
 "'Name'!$B$1:$I$1;'Name'!$B$2:$I$2")

 End With

End Sub

J'ai un pépin avec l'utilisation d'ActiveChart. Le message d'erreur suivant s'affiche: " Erreur d'excution '91' Variable objet ou variable de bloc With non définie"

Depuis ce matin j'essaie de trouver une solution mais je n'y arrive pas alors je vous sollicite.

J'avais pensé à une erreur du type que le graph crée ne soit pas "actif" mais vu qu'il est selectionné avant l'appel de ActiveChart il est implicitement "actif".... right ?

Merci de votre aide !

Bonjour,

Une proposition à étudier.

Cdlt.

Public Sub Create_Chart()
Dim Cell As Range, rng As Range, objChart As ChartObject

    With ActiveSheet
        On Error Resume Next
        .ChartObjects(1).Delete
        On Error GoTo 0
        Set rng = .Cells(2, 1).CurrentRegion
        Set Cell = .Cells(5, 2)
        Set objChart = .ChartObjects.Add(Cell.Left, Cell.Top, 450, 200)
        objChart.Name = "Graphique 1"
        With objChart.Chart
            .ChartType = xlXYScatter
            .SetSourceData Source:=rng
        End With
    End With

End Sub

Merci Jean-Eric, ça fonctionne

Par contre je ne comprends toujours pas qu'est-ce qu'il bloquait avec mon code, une idée ?

Bonjour,

une petite idée, je pense qu'il n'y avait pas de valeur à fournir dans la feuille pour créée ton graphique, j'avais réussi à afficher ton graphique à l'endroit donné dans ton code mais, hélas vide, rien dans la zone graphique 1

mais des experts te répondront mieux que moi

crdlt,

André

Bonjour,

Regarde la méthode :

https://msdn.microsoft.com/fr-fr/vba/excel-vba/articles/shapes-addchart2-method-excel

Cdlt.

@ Andre13,

moi j'obtenais bien un graphique mais c'était un histogramme, il me le mettait par defaut.

Merci à tous, je vais regarder la method indiquée par Jean-Eric, mais le sujet est clos.

Bonne journée

Bonjour toutes et tous,

Merci Jolila93 pour ton info

et merci à Jean-Eric

crdlt,

André