bonjour a ts,  
alors comme d'hab je genere des graphiques et j'aimerai en fait, qu'avec une valeur d'une feuille, mon code vba me trace une ligne en fonction de cette ou ces valeurs  
Ex :
 
Objectifs : 300
 
que mon code lise la cellule pour prendre la valeur 300 et m'affiche alors une ligne sur mon graphique généré à hauteur de Y = 300
 
ou aussi :
 
information : janvier février mars avril mai juin
                    300      349    400   239   244   210
 
Que je puisse prendre les valeurs ci dessus pour afficher une ligne qui prendra ces valeurs la sur mon graph  
 
ceci permettra d'aficher des objectifs sur le graphique que je genere
 
voila et il me faudrait ca en ligne de code vba s'il vous plaît  
 
 
en vous remerkiant d'avance

Gillooz, excuse moi de te dire ca, mais le principe du forum n'est pas de venir et de demander une ligne de code comme on demande un morceau de fromage en supermarché. L'idée est plutôt que tu viennes d'abord avec un bout de code, et que par la suite on t'aide à résoudre un problème. Si tout le monde venait faire des demandes comme ca, tu crois que ce forum serait agréable et gratuit ? J'en doute.
Aussi, sans nécessairement te donner de code, on peut te proposer des directions pour trouver une solution...
Tu me comprends ?
 
aide à la résolution :
Tu peux générer une deuxième série sur ton graphe, où chaque valeur vaut la valeur de ta cellule. Lors de la génération de ton graphe, tu auras donc 2 courbes, une d'objectifs, et l'autre avec tes valeurs selon les mois...
bon courage

mais je sais bien, mais j'ai deja recherché ca pdt pas mal de tps
et la ligne de code, jpe pas l'inventer !!!
je suis pas un pro en vba, moi ici je viens chercher de l'aide et pas des remarques.
Sur un forum, au lieu de dire ca, tu aurais pu m'orienter plutot que de te moquer gentiment.  
je vais me renseigner sur les series
 

Dim GraphPPMTypeDef As Chart
    Set GraphPPMTypeDef = ThisWorkbook.Charts.Add
    GraphPPMTypeDef.ChartType = xlColumnStacked
    GraphPPMTypeDef.ChartArea.Interior.Color = vbWhite
    ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 8.25, 9#, 89.25, 21.75).Select
    Selection.Characters.Text = "Information graphique PPM Type défaut"
    GraphPPMTypeDef.SetSourceData _
                Source:=Sheets("Outils Analyse DOPA" ).Range("donnee" ), _
                PlotBy:=xlClusters
    GraphPPMTypeDef.SeriesCollection.Add .Range("Outils analyse DOPA!F17" )
    With GraphPPMTypeDef
        .HasTitle = True
            With .ChartTitle
                .Characters.Text = "Indicateur PPM Type Défaut"
                .Shadow = True
                .Border.Weight = xlColumns
            End With
    End With
    GraphPPMTypeDef.Location _
        Where:=xlLocationAsObject, _
        Name:="Outils analyse DOPA"
    End If
 
 
voila mon code, j'ai rajouté la ligne .Add pour ajouter une serie avec la valeur contenu dans ma case F17 mais le compilateur me dit : erreur de compilation, référence incorrete ou non qualifié  
 

il ne doit pas y avoir d'espace après le .Add
cela te donnera ceci :
GraphPPMTypeDef.SeriesCollection.Add.Range("Outils analyse DOPA!F17" )

erreur 449 : argument non facultatif  
 

Peut être que l'argument nécessaire est une série de valeurs ?
essaie ca :
GraphPPMTypeDef.SeriesCollection.Add.Range("Outils analyse DOPA!F17:F21" )

ca me dit tjs le meme resultat
erreur 449 : argument non facultatif  
 
 
RelOo le VBA !

essaie de récupérer de le code de CATHYASTUCE
http://www.cathyastuce.com/vba/obj_xl_graph_series.php
en applicant les valeurs à ton cas, ca doit être plus facile peut etre ^^

okay je vais tenter