Bonjour,
Voila, j'ai un petit souci pour placer mon graphique sur une feuille spécifique.
Sa me met (cf intitulé) et sa me surligne la partie en vert du programme.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub evolution(f As Worksheet, rSource As Range, livreur As String)
    
    Charts.Add      'ajout d'un graphique
    ActiveChart.ChartType = xlLine  'type du graphique : courbe
    ActiveChart.SetSourceData _
       Source:=rSource, PlotBy:=xlColumns
       
    With ActiveChart
        .HasTitle = True     'ajoute un titre dans le graphique
        .ChartTitle.Characters.Text = "" & f.Name & " " & livreur & ""   'titre du graphique
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "retard en jours"  'unité de l'axe Y
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "periode"       'unité de l'axe X
        
    End With
    
    ActiveChart.Location where:=xlLocationAsObject, Name:=f.Name
     
End Sub
J'ai déjà utilisé cette instruction dans un autre sous-programme et la il n'y a pas eu de souci.

Merci pour votre aide,
papimcha.