Rajouter une droite horizontal mobile

Bonjour j'ai créer un graphique à partir de VBA et j'aimerais mtn rajouter une droite horizontal donc l'ordonné est égale à la valeur d'une cellule de mon tableau.

Pour le moment j'ai ça comme programme et je souhaite donc rajouter une droite horizontale depuis ce programme.

Si quelqu'un a déjà eu à faire à ça

Sub graphe1()

Dim feuille As Worksheet
Dim graphique As ChartObject
Dern_Lig = Range("A" & Rows.Count).End(xlUp).Row 'Recherche la dernière ligne du document
DL = Right(Str(Dern_Lig), Len(Str(Dern_Lig)) - 1)
Set feuille = Sheets("Données")
On Error Resume Next
Sheets("effort par mm").Delete
ThisWorkbook.Charts.Add After:=Worksheets("Données")
With ActiveChart
  .ChartType = xlLine

  .SeriesCollection.NewSeries
  .Name = "effort par mm"
  .HasLegend = False

    With .SeriesCollection(1)

    .Values = feuille.Range("C2:C" & DL)

    .XValues = feuille.Range("F2 :F" & DL)

  End With

  With .Axes(xlCategory, xlPrimary)
  .HasTitle = True
  .AxisTitle.Characters.Text = "élongation"
  End With

  With .Axes(xlValue, xlPrimary)
  .HasTitle = True
  .AxisTitle.Characters.Text = "effort"
  End With
 design_graph

End With

End Sub

Bonjour,

Comme vous ne donnez pas de détails concernant la taille du tableau de données ni de la cellule qui reçoit la valeur, alors voici un essai avec la cellule en J1 et j'utilise la colonne H pour reporter cette valeur sur la première et dernière ligne du tableau.

A vous de l'adapter à votre fichier:

Cdlt

Merci bcp j'ai réussi à adapter et ça marche très bien. J'ai juste un petit problème : en effet une fois le graphe créer et la droite créer toute une colonne reste en sélection active et il faut que j'appuie sur Echap car si j'ai le malheur de cliquer sur une autre cellule, la sélection se copie alors à nouveau.

Je me demandais donc si il y avait une solution pour stopper cela une fois le graphe créer ?

Bonjour,

Ajoutez cette ligne avant le "End Sub"

    Application.CutCopyMode = False

Cdlt

merci