Microsoft 365 Comment récupérer dans une cellule l'équation de la courbe de tendance d'un graphique ?

Louiso · 26 Avril 2023

Bonjour,
J'ai tracer beaucoup de graphiques en nuages de points avec une courbe de tendance dont l'équation est affichée, mais j'aimerais ensuite récupérer l'équation d'un graphique en particulier pour ensuite travailler dessus. Je pourrais simplement recopier l'équation mais je dois répéter l'opération plusieurs fois, ce qui me prendrait beaucoup de temps.
Est-ce possible de récupérer l'équation grâce à une macro ? Si oui , quel serait le codage possible ?
(je ne connais pas très bien le langage VBA, je débute seulement, mais j'aimerais comprendre un peu comment ça marche puisque j'utilise énormément Excel et je pense que cela pourrais me faire gagner beaucoup de temps)

Merci

vgendron · 26 Avril 2023

bonjour

puisque tu traces des graphiques.. les données sont donc sur ta feuille Excel
tu peux donc aussi mettre une formule pour retrouver la formule..
de mémoire = pente(donnéeX;donnéexY)
.ordonnée.origine(....)

sylvanu · 26 Avril 2023

Bonjour Louiso, Vgendron,
Ou en utilisant Droitereg. Voir PJ.

Fonction DROITEREG - Support Microsoft

La fonction DROITEREG calcule les statistiques d’une droite par la méthode des moindres carrés afin de calculer une droite s’ajustant au plus près de vos données, puis renvoie une matrice qui décrit cette droite.

support.microsoft.com

Louiso · 27 Avril 2023

sylvanu à dit:
Bonjour Louiso, Vgendron,
Ou en utilisant Droitereg. Voir PJ.

Fonction DROITEREG - Support Microsoft

La fonction DROITEREG calcule les statistiques d’une droite par la méthode des moindres carrés afin de calculer une droite s’ajustant au plus près de vos données, puis renvoie une matrice qui décrit cette droite.

support.microsoft.com

Merci, je n'avais pas pensé à faire aussi simple
Cependant je filtre certaines valeurs de la liste pour tracer un graphique correct mais la fonction Droitereg prend en compte toutes les valeurs de la liste ce qui ne me permet pas de retrouver les mêmes coefficients que ceux du graphique

sylvanu · 27 Avril 2023

Bonjour,

Louiso à dit:
Cependant je filtre certaines valeurs de la liste

Vous auriez pu le préciser. Ca revêt une certaine importance non ?
Droitereg n'aime pas les vides, il vous faut trouver une astuce.
Mais un petit fichier test représentatif aurait simplifié les choses.

vgendron · 27 Avril 2023

et allez !!
encore un post à rallonge avec les infos données au compte goutte !

vgendron · 27 Avril 2023

tiens. une petite analogie (j'aime bien ca)

bonjour Docteur
bonjour, qu'est ce qui vous amène
je viens vous voir parce que depuis ce matin, j'ai très mal au doigt
ok, voyons, ah oui, il est tout gonflé et rouge, on dirait une allergie.. on va faire des recherches...
au fait. ce matin en sortant des toilettes, je me suis coincé le doigt dans la porte...

sylvanu · 27 Avril 2023

Le plus simple restera l'approche VBA avec :

Code:

Sub ExtraitEquation()
Set Feuille = ActiveWorkbook.Worksheets(1)
With Feuille.ChartObjects(1).Chart
    With .SeriesCollection(1).Trendlines(1)
        Equation = .DataLabel.Text
    End With
End With
T = Split(Split(Equation, "= ")(1), "x")
[B25] = Equation: [B27] = Val(T(0)): [B28] = Val(T(1))
End Sub

Voir PJ.
Même avec des "trous" la courbe de tendance est correcte.

Modeste geedee · 27 Avril 2023

Bonsour®
peut-etre en consultant l'aide ??? F1

Louiso · 27 Avril 2023

vgendron à dit:
et allez !!
encore un post à rallonge avec les infos données au compte goutte !

Merci de rester agréable, je ne pense pas que ce commentaire était nécessaire
Comme indiqué précédemment je ne suis pas une experte en excel, c'est pour cela que je demande de l'aide.
Je ne pensais pas que cette info serait nécessaire puisque je voulais simplement récupérer les coefficients que le graphique me donnait.

Pour rebondir sur l'analogie qui vous plait tant :
C'est comme si j'allais chez le docteur
-Bonjour docteur, j'ai mal au doigt, pourriez vous me prescrire du paracétamol
-Hmm non je vais plutôt vous prescrire de la crème apaisante cela vous suffira
-Oulala je ne savais pas que ça existait, merci beaucoup docteur
Finalement votre crème ne fonctionne pas du tout et je crois même que j'en suis allergique
-Enfin madame, il fallait me dire que vous étiez allergique à cette crème !

Vous comprendrez à travers cette analogie que mon manque d'expertise ne me permettait pas de savoir à l'avance quelles informations donner au docteur.
Par ailleurs, si cela vous dérange de m'aider ne le faite pas. Ne perdez pas votre temps et faites gagner le miens.

Merci de votre compréhension

vincent32 · 19 Mars 2024

sylvanu à dit:
Le plus simple restera l'approche VBA avec :

Code:

Sub ExtraitEquation() Set Feuille = ActiveWorkbook.Worksheets(1) With Feuille.ChartObjects(1).Chart With .SeriesCollection(1).Trendlines(1) Equation = .DataLabel.Text End With End With T = Split(Split(Equation, "= ")(1), "x") [B25] = Equation: [B27] = Val(T(0)): [B28] = Val(T(1)) End Sub

Voir PJ.
Même avec des "trous" la courbe de tendance est correcte.

Bonjour sylvanu
Tu n'aurai pas un tuto qui détaille ta macro par hasard ?

Merci d'avance pour ta réponse

sylvanu · 19 Mars 2024

Re bonjour tout le monde,
Un essai en PJ avec une courbe de tendance polynomiale d'ordre 5, et cette macro :

VB:

Sub ExtraitEquation()
' Marche pour une courbe de tendance par polynome ordre 5
Set Feuille = ActiveWorkbook.Worksheets(1)
With Feuille.ChartObjects(1).Chart              ' Avec le graphique de la feuille
    With .SeriesCollection(1).Trendlines(1)     ' On extrait l'équation donnée
        Equation = .DataLabel.Text              ' L'éqauation doit être affichée sur le graphique
    End With
End With
T = Split(Equation, "= ")                       ' On vire le "=" de l'équation
[B25] = Equation                                ' On colle le texte de l'équation
T = Split(T(1), "x5"): [B27] = Val(T(0))        ' On extrait a5 et on le colle
T = Split(T(1), "x4"): [B28] = Val(T(0))        ' On extrait a4 et on le colle
T = Split(T(1), "x3"): [B29] = Val(T(0))        ' On extrait a3 et on le colle
T = Split(T(1), "x2"): [B30] = Val(T(0))        ' On extrait a2 et on le colle
T = Split(T(1), "x"): [B31] = Val(T(0))         ' On extrait a1 et on le colle
[B32] = Val(T(1))                               ' On colle a0
End Sub

Si la courbe de tendance choisie n'est pas celle ci, le début de la macro reste le même. Il suffit à la fin de retraiter correctement les coefficient en fonction de la formule choisie.

vincent32 · 26 Mars 2024

sylvanu à dit:

Re bonjour tout le monde,
Un essai en PJ avec une courbe de tendance polynomiale d'ordre 5, et cette macro :

VB:

Sub ExtraitEquation()
' Marche pour une courbe de tendance par polynome ordre 5
Set Feuille = ActiveWorkbook.Worksheets(1)
With Feuille.ChartObjects(1).Chart              ' Avec le graphique de la feuille
    With .SeriesCollection(1).Trendlines(1)     ' On extrait l'équation donnée
        Equation = .DataLabel.Text              ' L'éqauation doit être affichée sur le graphique
    End With
End With
T = Split(Equation, "= ")                       ' On vire le "=" de l'équation
[B25] = Equation                                ' On colle le texte de l'équation
T = Split(T(1), "x5"): [B27] = Val(T(0))        ' On extrait a5 et on le colle
T = Split(T(1), "x4"): [B28] = Val(T(0))        ' On extrait a4 et on le colle
T = Split(T(1), "x3"): [B29] = Val(T(0))        ' On extrait a3 et on le colle
T = Split(T(1), "x2"): [B30] = Val(T(0))        ' On extrait a2 et on le colle
T = Split(T(1), "x"): [B31] = Val(T(0))         ' On extrait a1 et on le colle
[B32] = Val(T(1))                               ' On colle a0
End Sub

Si la courbe de tendance choisie n'est pas celle ci, le début de la macro reste le même. Il suffit à la fin de retraiter correctement les coefficient en fonction de la formule choisie.

Super merci beaucoup
Bonne continuation

Microsoft 365 Comment récupérer dans une cellule l'équation de la courbe de tendance d'un graphique ?

Louiso

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Fonction DROITEREG - Support Microsoft

Pièces jointes

Louiso

XLDnaute Nouveau

Fonction DROITEREG - Support Microsoft

sylvanu

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

Louiso

XLDnaute Nouveau

vincent32

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

vincent32

XLDnaute Nouveau

Discussions similaires