Correction de mon graph

[miky973]

Bonjour,

J'aimerai que vous me corrigier car j'ai beau essayer je n'arrive pas trouver le problème.

Dim objChart As Chart, A As Range
Range("A93", Range("D93").End(xlDown)).Select
i = Sheets("Résultat").Range("A93", Range("D93").End(xlDown)).Row
 Set Plage = Sheets("Résultat").Range("A" & 93 & ":D" & i)
Charts.Add
   ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Plage, PlotBy:=xlColumns

ActiveChart.SeriesCollection(1).Name = "Indice"
[COLOR="darkorange"]ActiveChart.SeriesCollection(1).XValues = Range("A93", Range("D93").End(xlDown))[/COLOR]

ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphique"

J'ai le bon graphique il s'affiche mais avec une erreur et donc ce n'est pas bon du coup.
J'aimerai finir mon code, voir l'amélioré.

Merci pour votre aide et vos réponses


Best regards,

Miky

 

[Pierrot93]

Re : Correction de mon graph

Bonjour,

le mieux est de rester sur le même fil, tuu as déjà une réponse ici, me semble t'il...

https://www.excel-downloads.com/threads/vba-probleme-de-syntaxe-ajout-graphique.160675/

bon après midi
@+

 

[miky973]

Re : Correction de mon graph

Re,

ok pierrot j'ai déposer un modèle si tu peux m'aider ça aurait été magnifique

Cordialement,

miky