Re : génération par VBA d'une courbe de tendance à partir d'un tableau de couple de p
J'ai trouvé quelque chose pour que le programme ne bug pas :
ActiveSheet.ChartObjects(1).Activate
Apparement, l'indice du graphe créé est 1 car c'est le seul donc avec cette ligne sa marche (mais si j'ai plusieurs graphes, ca va planter, il serait mieux de mettre le nom de ce graphe dans cette ligne).
Donc le programme s'effectue sans planter, mais les résultats sont pas bon (voir graphe en pièce jointe, et il ne me met pas dans G3 l'aquation).
Il me trace 3 courbes, 2 histogrammes 2D avec comme abcisses 1,2,3,4,5,6,7 et comme ordonnées pour la 1ère la colonne B et la 2ème la colonne C, la troisième courbe et la courbe de tendance créée à partir de la deuxième courbe (pour rappel, moi je veux qu'il affiche que la courbe de tendance créée à partir des points X (colonne B) et Y (colonne C).
Sub Graph1()
Application.ScreenUpdating = False
Charts.Add
ActiveChart.Location _
Where:=xlLocationAsObject, Name:="Feuil1"
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SetSourceData Source:=[B2:C2].Resize([F1] + 1)
With ActiveChart.SeriesCollection(1).Trendlines
With .Add
.Type = xlPolynomial
.Order = 3
.Border.ColorIndex = 5 'couleur bleu
.DisplayEquation = True
[G3] = Replace(Replace(.DataLabel.Text, " ", ""), "x", "*x")
[G3] = Replace(Replace([G3], "x3", "x^3"), "x2", "x^2")
End With
End With
End Sub