Déplacer le texte d'un graphique

Résolu

cruxifer Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
cruxifer Messages postés 16 Date d'inscription Statut Membre Dernière intervention - 13 mai 2015 à 09:20

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

A voir également:

Déplacer le texte d'un graphique
Déplacer colonne excel - Guide
Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
Changer carte graphique - Guide
Transcription audio en texte word gratuit - Guide
Excel cellule couleur si condition texte - Guide

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

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 16 Date d'inscription Statut Membre Dernière intervention

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 16 Date d'inscription Statut Membre Dernière intervention

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 !

Discussions similaires

Nuages de point avec abscisses différentes

copie de texte

Votre réponse

Discussions similaires