Hello le forum,
J'ai trouvé des sujets qui s'approchaient de mon probleme, mais aucun ne me donnait la solution.
J'ai crée une macro me permettant de rapatrier les cours de bourse grace au site yahoo. J'ai donc une petite case "symbol" sur ma feuille où je rentre mon mnémonique et j'obtiens les cours souhaités.
Le probleme est que j'ai essayé de mettre en place un graphique dont les axes et l'échelle s'ajustent selon le cours téléchargé.
Un de mes amis m'a déniché une macro sur internet où un graphique était préalablement construit. Cette macro s'integre dans le code qui me permet de télécharger les cours et se présente sous cette forme :
Sub UpdateScale()
Dim ChartVar As chart
Dim lMax As Long, lMin As Long
On Error GoTo ScalingProblem
'Assigns the values in the Min and Max ranges to variables.
With Sheet1
lMax = .Range("Max").Value
lMin = .Range("Min").Value
'Creates chart object.
Set ChartVar = .ChartObjects("Chart 32").chart
With ChartVar.Axes(xlValue, xlPrimary) 'Adjusts the price axis
.MinimumScale = lMin
.MaximumScale = lMax
End With
End With
Exit Sub
ScalingProblem:
RetrievalProblem:
MsgBox "Unable to update chart scale.", vbCritical + vbOKOnly, "Scaling Error"
End Sub
Avec l'exemple, tout marche impecc, mais lorsque j'essaye de le refaire par moi même sur une autre feuille excel, j'ai a chaque fois le message d'erreur "UNABLE TO UPDATE CHART SCALE".
Y'a t'il quelque chose que je dois integrer lors de l'insertion du graph??Dois je specifier a quelque part IMAX et IMIN?? A noter que sur la feuille excel il y a deux case Chart Max et Min, mais je ne sais pas comment elles sont intégrées dans le graphique.
Si cela n'est pas assez clair pour vous, je veux bien mettre le fichier de mon ami
Merci d'avance tout le monde
J'ai trouvé des sujets qui s'approchaient de mon probleme, mais aucun ne me donnait la solution.
J'ai crée une macro me permettant de rapatrier les cours de bourse grace au site yahoo. J'ai donc une petite case "symbol" sur ma feuille où je rentre mon mnémonique et j'obtiens les cours souhaités.
Le probleme est que j'ai essayé de mettre en place un graphique dont les axes et l'échelle s'ajustent selon le cours téléchargé.
Un de mes amis m'a déniché une macro sur internet où un graphique était préalablement construit. Cette macro s'integre dans le code qui me permet de télécharger les cours et se présente sous cette forme :
Sub UpdateScale()
Dim ChartVar As chart
Dim lMax As Long, lMin As Long
On Error GoTo ScalingProblem
'Assigns the values in the Min and Max ranges to variables.
With Sheet1
lMax = .Range("Max").Value
lMin = .Range("Min").Value
'Creates chart object.
Set ChartVar = .ChartObjects("Chart 32").chart
With ChartVar.Axes(xlValue, xlPrimary) 'Adjusts the price axis
.MinimumScale = lMin
.MaximumScale = lMax
End With
End With
Exit Sub
ScalingProblem:
RetrievalProblem:
MsgBox "Unable to update chart scale.", vbCritical + vbOKOnly, "Scaling Error"
End Sub
Avec l'exemple, tout marche impecc, mais lorsque j'essaye de le refaire par moi même sur une autre feuille excel, j'ai a chaque fois le message d'erreur "UNABLE TO UPDATE CHART SCALE".
Y'a t'il quelque chose que je dois integrer lors de l'insertion du graph??Dois je specifier a quelque part IMAX et IMIN?? A noter que sur la feuille excel il y a deux case Chart Max et Min, mais je ne sais pas comment elles sont intégrées dans le graphique.
Si cela n'est pas assez clair pour vous, je veux bien mettre le fichier de mon ami
Merci d'avance tout le monde
Dernière édition: