Re : génération par VBA d'une courbe de tendance à partir d'un tableau de couple de p
Bonjour mécano41 et merci, ton programme marche nickel.
La seule chose est que je n'ai pas besoin de mettre à jour le graphe et l'équation (l'utilisateur tape sur la feuille d'accueil les points et d'autres valeurs nécessaire au programme principal et il appui sur un bouton pour effectuer le programme d'une seule traite, il affiche quand même le graphe pour vérifier les points et l'équation).
Donc je veut que le programme pour l'équation polynomiale est un sous programme que l'on appel par "call"
J’ai mis le programme qui se trouve sur la feuille "régression" dans le programme qui se trouve dans le module (voir le programme en pièce jointe), tous ces lignes forment un sous programme « call () » que l’on appelle lorsque l’on appui sur un bouton :
Private Sub Valider_Click()
Call creer_graphe
End Sub
J’ai remplacé xrel et yrel par B3 et C3 :
Set PlageX = Range(.Range("B3").Offset(1, 0), .Range("B3").End(xlDown))
Set PlageY = Range(.Range("C3").Offset(1, 0), .Range("C3").End(xlDown))
Ja'i ajouté, je ne sais pas si c'est au bonne endroit :
[G3] = Replace(Replace(.DataLabel.Text, " ", ""), "x", "*x")
[G3] = Replace(Replace([G3], "x3", "x^3"), "x2", "x^2")
Mon programme plante à ce niveau :
Set PlageCoeff = .Range("PlageCoeff")
Je ne sais pas comment faire pour supprimer ce bug, peut-tu regarder mon programme en pièce jointe et le modifier pour qu’il fonctionne ou me dire comment changer les lignes de code.
Si tu veut remettre xrel et yrel, dit moi comment tu fait parce que je n’y arrive pas. Et enfin par besoin de supprimer le graphe à la fin du programme.
Merci par avance.