Discussion :

[patbold]

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

[ARTURO83]

Bonjour,

Essayez ceci: remplacez "Graphique 19" par "Chart 19"

Cdlt

[patbold]

Bonjour
j'ai essayez ce que vous me proposer a l'instant et cela fonctionne trés bien, ensuite je tient a m'excuse de ne pas avoir repondu plus tot le matin ou j'ai trouver votre réponse j'ai du partir pour pour un gros probleme familliale et et ne suis rentre que cette nuit, en tout cas je remerci ARTURO83 pour sa réponse.
Ensuite je m'excuse pour ne pas avoir utiliser le code pour le language de mon programme.
Je vous souhaite une trés bonne journée . Et je marque que la question est resolue.