Comment créer des noms de courbes automatiquement

[Lepilote]

Bonjour
J'aimerai pouvoir écrire à coté de chaque courbe sur un graphique excel le nom de chaque courbe tracer. Comme dans mon exemple en pièce jointe pour H=26m.
Ce graphique est tracer avec l'aide d'une macro vba.
Merci d'avance pour votre aide

 

[phlaurent55]

Re : Comment créer des noms de courbes automatiquement

Bonjour lepilote

au moment de la construction du graphe, tu as certainement oublié de sélectionner la colonne contenant le nom de la courbe

voir fichier joint

à+
Philippe

 

[Misange]

Re : Comment créer des noms de courbes automatiquement

Bonjour
Pour mettre l'étiquette en bout de ligne tu peux soit le faire manuellement, soit, surtout quand il y a beaucoup de courbes à l'aide d'une macro. Tu la trouveras ici
Ce lien n'existe plus
avec un exemple à télécharger

 

[job75]

Re : Comment créer des noms de courbes automatiquement

Bonjour le fil, le forum,

Sur le graphique joint le nom de chaque série est affecté à l'étiquette de donnée du dernier point.

A+

 

[job75]

Re : Comment créer des noms de courbes automatiquement

Re,

Voici quand même une petite macro, au cas où :

Sub Etiquettes()
Dim s As Object
With ActiveSheet.ChartObjects(1).Chart
  .ApplyDataLabels xlDataLabelsShowNone
  For Each s In .SeriesCollection
    With s.Points(s.Points.Count)
      .HasDataLabel = True
      .DataLabel.Text = s.Name
    End With
  Next
End With
End Sub

Fichier (2).

A+

 

[Lepilote]

Re : Comment créer des noms de courbes automatiquement

Merci beaucoup j'ai réussi à adapter le code à ma macro.

For i = 2 To 13
        'Hinzufügen die Namen von jeden Kurve
        ActiveSheet.ChartObjects("Diagramm " & Dia_Num & "").Activate
        L_Punkt = ActiveChart.SeriesCollection(i).Points.Count
        ActiveChart.SeriesCollection(i).Points(L_Punkt).ApplyDataLabels
        ActiveChart.SeriesCollection(i).Points(L_Punkt).DataLabel.Select
        Selection.Formula = Cells(l, c)
        c = c + 3
Next i