Bonjour à tous,

Voilà, j'ai réussi à mettre un graphique dans une autre feuille que celle où se trouvent les données mais dans le code ci-dessous, il y a un message d'erreur

"titre manquant" et la ligne 8 est surlignée en jaune. Pouvez-vous me dire où est l'erreur ?

Pour information, ce programme est pourtant créé par l'éditeur de macro.........

Cordialement

NOVICE72

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
Option Explicit
Sub Macro2()
    Range("A1:A6,AD1:AF6").Select
    Range("AD1").Activate
    ActiveSheet.Shapes.AddChart2(297, xlColumnStacked).Select
    ActiveChart.SetSourceData Source:=Range( _
        "'Résultats par élève'!$A$1:$A$6,'Résultats par élève'!$AD$1:$AF$6")
    ActiveChart.ChartTitle.Select
    ActiveChart.ChartTitle.Text = "Répartition des résultats par compétence"
    Selection.Format.TextFrame2.TextRange.Characters.Text = _
        "Répartition des résultats par compétence"
    With Selection.Format.TextFrame2.TextRange.Characters(1, 40).ParagraphFormat
        .TextDirection = msoTextDirectionLeftToRight
        .Alignment = msoAlignCenter
    End With
    With Selection.Format.TextFrame2.TextRange.Characters(1, 11).Font
        .BaselineOffset = 0
        .Bold = msoFalse
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(89, 89, 89)
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 14
        .Italic = msoFalse
        .Kerning = 12
        .Name = "+mn-lt"
        .UnderlineStyle = msoNoUnderline
        .Spacing = 0
        .Strike = msoNoStrike
    End With
    With Selection.Format.TextFrame2.TextRange.Characters(12, 29).Font
        .BaselineOffset = 0
        .Bold = msoFalse
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(89, 89, 89)
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 14
        .Italic = msoFalse
        .Kerning = 12
        .Name = "+mn-lt"
        .UnderlineStyle = msoNoUnderline
        .Spacing = 0
        .Strike = msoNoStrike
    End With
    ActiveChart.ChartArea.Select
End Sub