Résolu VBA Problème pour créer un graphique (addChart)

[Philou250]

Bonjour,

Je souhaite créer un graphique dans une feuille, j'ai trouvé cette formule :
worksheets(...).shapes.addchart.select

Mais le soucis c'est que je n'arrive pas à la faire fonctionner correctement, le debug me dit "Application defined or object defined error".

Quelqu'un aurait-il une idée où pourrait être cacher l'erreur ?

Voici une partie du code :

Dim wsAnalysis as Worksheet
Dim monGraphe as Chart
Dim p as Single
Dim nbEquipment as single '(= 3)
Set wsAnalysis = Worksheets("Analysis")
For p = 1 To nbEquipment
    Set monGraphe = wsAnalysis.Shapes.AddChart
Next p
End Sub

 

[zeb]

Salut Philou,

Vire le p derrière le Next. On est plus en BASIC millésime 1985 !!!

Pour ton code, analyse ça :

For p = 1 To 2
    Set monGraphe = Charts.Add
    monGraphe.Location Where:=xlLocationAsObject, Name:=wsAnalysis.Name
Next

 

[Philou250]

C'était ça, merci