Discussion :

[vdsjo]

La sub suivante me génère une erreur

Run-time error '-2147417848(80010108)'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub MakeLineChart()
 
 
    Dim lChart As Object
 
 
 
    With ActiveSheet.ChartObjects
        Set lChart = .Add(5, 5, 450, 250)

Quelqu'un a une idée? Avec 2003 ça marchait avec 2010 ne marche plus...
Merci de votre aide

Vdsjo

[EricDgn]

Bonjour

Pour ma part, avec Excel 2010, pas d'erreur avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub MakeLineChart()
    Dim lChart As Object
    With ActiveSheet.ChartObjects
        Set lChart = .Add(5, 5, 450, 250)
   End With
End Sub

Bonne continuation.