Discussion :

[Novice72]

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

[Menhir]

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

Supprime ta ligne 8. Elle ne sert à rien.

[Novice72]

Bonjour Menhir,

J'ai déjà essayé ( et je viens de réessayer pour voir à nouveau ) mais ça ne marche pas.
L'ancienne ligne 9 ( qui devient la ligne 8 puisque la ligne 8 est supprimée ) est à son tour surlignée en jaune.

Cordialement


NOVICE72

[halaster08]

Bonjour,
Un petit tour sur l'aide de "ChartTitle.Text " et tu aurais trouvé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.HasTitle = True

A mettre la ligne avant "ChartTitle.Text"

[Novice72]

Bonjour Halaster08,

Je te remercie pour l'info que je vais tester rapidement. Toutefois, j'ai bien pensé à utilisé Hastitle = true mais ça ne marchait pas.
J'ai essayé avec un point devant, sans point devant j'ai essayé de chercher un With / End with mais sans succès.

J'ai bien un bouquin ( en plus des forums ) sur le vba pour les nuls mais comme je te lai dit il y a quelque temps, je dois vraiment l'être ( nul )

A moins que tu en connaisses un mais je n'ai pas encore trouvé "un vrai livre VBA pour les nuls" ( ou un site ). Quelque chose qui explique exactement à quoi sert telle ligne ou telle ligne. avec les extensions ( comme ActiveChart.hastitle )..... Enfin un vrai B.A. BA

Merci pour ton aide.

NOVICE72

[halaster08]

Quelque chose qui explique exactement à quoi sert telle ligne ou telle ligne. avec les extensions ( comme ActiveChart.hastitle)

Je ne sais pas non plus mais grâce a l'aide vba intégré (F1) et quelques recherche sur le net tu trouve souvent des réponses.
Et aussi en faisant des tests, plein de tests.

[Menhir]

J'ai bien un bouquin ( en plus des forums ) sur le vba pour les nuls mais comme je te lai dit il y a quelque temps, je dois vraiment l'être ( nul )

A moins que tu en connaisses un mais je n'ai pas encore trouvé "un vrai livre VBA pour les nuls" ( ou un site ). Quelque chose qui explique exactement à quoi sert telle ligne ou telle ligne. avec les extensions ( comme ActiveChart.hastitle )..... Enfin un vrai B.A. BA

Pour ça, rien de tel que l'aide officielle.
Pour le VBA de base : https://msdn.microsoft.com/fr-fr/lib.../jj692818.aspx
Pour les objets Excel : https://msdn.microsoft.com/fr-fr/lib.../ff194068.aspx
Une fois que tu as compris comment ça marche, tu peux avoir tous les membres de tous les objets avec leurs syntaxe et de manière récurrente en suivant leurs enchaînements.

Une bonne moitié des questions posées sur ce forum peuvent avoir leur réponse par la seule consultation de cette aide.

[Novice72]

(re)bonjour Halaster08,

J'ai ajouté ta ligne dans mon programme ( j'ai essayé plusieurs endroit et aussi en mettant certaines lignes qui posaient problème en commentaire... ) mais sans succès.
Je suis donc allé dans l'aide de chartitle.text et j'ai trouvé ceci. Comme je le disais, il me faut un with / End with mais mon graphique n'a pas de nom ou quel nom lui donner ???????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Charts("Graphique1")
 .HasTitle = True
 .ChartTitle.Text = "petit test"
End With

[Novice72]

Bonjour,
Un petit tour sur l'aide de "ChartTitle.Text " et tu aurais trouvé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.HasTitle = True

A mettre la ligne avant "ChartTitle.Text"

Bonsoir Halaster08,

Je vois que tu ne dors pas encore.....

Moi non plus ! En effet, je n'arrive pas à résoudre mon problème malgré tous les conseils. Peux-tu regarder attentivement mon programme car même en ajoutant le ligne de code que tu m'as proposé, ça ne marche pas non plus.

Merci d'avance.

NOVICE72

[Menhir]

Peux-tu regarder attentivement mon programme car même en ajoutant le ligne de code que tu m'as proposé, ça ne marche pas non plus.

Si tu n'obtiens pas de réponse souhaitée, c'est généralement que la question est mal posée. Donc, ce n'est pas en demandant qu'on la lise mieux que ça fera progresser le sujet mais en apportant des précisions.
Je viens de tester le début de ton code et ça fonctionne. Si chez toi ça ne fonctionne pas, c'est certainement qu'il y a des éléments que tu as oublié de préciser.