Déplacer le texte d'un graphique [Résolu/Fermé]

Signaler
Messages postés
19
Date d'inscription
jeudi 16 avril 2015
Statut
Membre
Dernière intervention
16 juin 2015
-
cruxifer
Messages postés
19
Date d'inscription
jeudi 16 avril 2015
Statut
Membre
Dernière intervention
16 juin 2015
-
Bonjour,
Voilà mon problème :
J'ai un graphique en ligne (produit par mes soins) ainsi qu'une courbe de tendance que je crée de la façon suivante :
 Set serie = Graphique.SeriesCollection.NewSeries 'Série des valeurs
With serie
'----- Tendance linéaire--------
.Trendlines.Add Type:=xlLinear, Forward:=0, Backward:=0, DisplayEquation:=0, DisplayRSquared:=1, _
Name:="Tendance Linéaire (Valeur réponse)"
.Trendlines.DataLabel.Left = 663
.Trendlines.DataLabel.Top = 377
End With

Donc ici je demande à ce qu'on m'affiche le R² (ce qui donne : "R² = 0.21" par exemple). Or celui-ci s'affiche par défaut sur la courbe. Ce qui fait que c'est illisible si j'ai beaucoup de données. Est-ce que quelqu'un sait comment accéder à ce bout de légende ? L'enregistreur de macro ne m'aide pas vraiment...

Merci à vous :D

1 réponse

Messages postés
2078
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 mars 2020
268
Bonjour
Peut-être n'ai-je pas bien perçu votre problème, mais pourquoi passer par du VBA pour afficher une courbe de tendance?
En faisant un clic droit sur la courbe, sélectionnez "ajouter une courbe de tendance"
Cdlt
cruxifer
Messages postés
19
Date d'inscription
jeudi 16 avril 2015
Statut
Membre
Dernière intervention
16 juin 2015

C'est pour une automatisation de traitement de données. L'idée est que l'utilisateur peut disposer d'un fichier différent. Ce fichier est importé dans Excel et à partir de ça je propose un outil qui en un clic permet d'obtenir diverses informations, dont en l'occurrence une courbe de tendance. Celle-ci va donc varier à chaque fois.
Mon problème n'est pas de créer la courbe en VBA mais de déplacer la valeur affichée du R² qui se place par défaut sur la courbe (donc il est illisible).
cruxifer
Messages postés
19
Date d'inscription
jeudi 16 avril 2015
Statut
Membre
Dernière intervention
16 juin 2015

Bon j'ai finalement trouvé !
Il suffisait de :
Dim lineaire as Trendline
set lineaire = serie.Trendlines.Add Type:=xlLinear, Forward:=0, Backward:=0, DisplayEquation:=0, DisplayRSquared:=1, _
Name:="Tendance Linéaire (Valeur réponse)"
lineaire.DataLabel.Left = 663
lineaire.Datalabel.Top = 377


Merci quand même !