Bonjour
J'ai trouvé il y as un moment un petit logiciel qui d'après des données prises sur un tableau crée un graphe avec ces données, le programme marche bien.
Je désire détourner le fait de créer un graphe pour des données personnelles, seulement quand j'ai essayé de reproduire le problème pour moi il ne se lance pas et me dit qu'il ne peut pas le chartobjet ? Alors que dans le logiciel original cela fonctionne très bien, je vous joins la copie du programme, j'ai créé une feuille Graphes, je lance Sub photo1().

Créer une feuille comme ci-dessous
Feuil2(Graphes)

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Sub photo1()
Range("FE1") = "B3:D103"
'Stop
BoPrin
End Sub
 
 
Sub BoPrin()
'
' CholTotal Macro
'
'
Dim Mot As Variant
Dim vNom As Variant
vNom = ThisWorkbook.Name
vAdres = Range("FE1")
 
'
Application.ScreenUpdating = False
Je bloc a la ligne suivante 
With Worksheets("Graphes").ChartObjects("Graphique 19").Chart
    .HasTitle = True
    .ChartTitle.Text = "Titre provisoir"
End With
 
 
 
Sheets("Graphes").Select
ActiveSheet.ChartObjects("Graphique 19").Activate
    ActiveChart.ChartTitle.Select
    Application.CutCopyMode = False
    Selection.Delete
 
    Sheets("Graphes").Select
    Range("A2").Select
    Cells.Select
    Selection.Clear
    Sheets("Analyses").Select
    Range("A4:A103").Select
    Selection.Copy
    Sheets("Graphes").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Analyses").Select
    'ActiveWindow.SmallScroll Down:=-57
    '---------------------------------------
    Range(vAdres).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Graphes").Select
    Range("B1").Select
    ActiveSheet.Paste
        ActiveWindow.Visible = False
    Windows(vNom).Activate
    Range("H1:M1").Select
    Range("M1").Activate
 
    Mot = Range("D1")     'voir cellule titre
 
    Application.CutCopyMode = False
    Selection.Merge
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 26
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic

C D E
4500 !5000 !4400
4500 !5000 !4570
4500 !5000 !4320
4500 !5000 !4410

Est-ce que l'un de vous peut m'aider et me dire pourquoi quand je recopie cela ne fonctionne pas ? À l'avance je vous remercie