Problème nom de graphique, incompatibilité Excel 2007 et 2003

Version imprimable

25/01/2011, 16h58
x0ran

Problème nom de graphique, incompatibilité Excel 2007 et 2003
Bonjour à tous,

J'ai actuellement un problème pour renommer un graphique sous Excel 2003 alors que tout fonctionnait très bien auparavant sous excel 2007.

L'erreur affiche le message suivant:"Impossible de définir la propriété HasTitle de la classe Chart"

Voici mon code:
Code:

1 2 3 4 With Charts("Graphique") Charts("Graphique Réseau").HasTitle = True Charts("Graphique Réseau").ChartTitle.Text = "Réseau entier" & "-" & .Cells(1, 18).Value End With
L'erreur se trouve donc à la seconde ligne

J'espère que vous pourrez m'aider, en vous remerçiant par avance,:?

x0ran
26/01/2011, 14h59
fring
Bonjour,

Citation:

Envoyé par x0ran

alors que tout fonctionnait très bien auparavant sous excel 2007.

Étonnant que ce code fonctionnait sous 2007 parce que tu fais référence à 2 graphiques dans ton code
With Charts("Graphique") et à la ligne suivante Charts("Graphique Réseau")...

En écrivant With Charts("Graphique") je suppose que le graphique a été créé sur une nouvelle feuille et non inséré comme objet sur la feuille contenant les données.

Essaie comme ceci :
Code:

1 2 3 4 With Charts("Graphique") .HasTitle = True .ChartTitle.Text = "Réseau entier" & "-" & Sheets("NomFeuille").Cells(1, 18).Value '<-- NomFeuille à adapter End With
Si par contre le graphique est inséré comme un objet sur la feuille, la syntaxe est différente.
27/01/2011, 13h04
x0ran

Merci beaucoup de m'avoir apporté ton aide,
Effectivement j'avais fait une erreur en copiant mon code

Je viens de retenter avec ta méthode, mais j'ai la même erreur à savoir "Impossible de définir la propriété HasTitle de la classe Chart"

Y a t'il d'autres olutions??

Merci

En réalité je remplis le même graphique automatiquement avec des données présentes dans une feuille, et je veux importer le titre de ma feuille pour en faire le titre du graphique en question, mais bien que tout fonctionne très bien sous excel 2007, rien à faire sous excel 2003. J'ai essayé avec ta méthode (en corrigeant l'erreur sur le nom du graphique), mais là toujours rien...
27/01/2011, 23h28
fring

Je viens de tester le petit bout de code sous 2003 et 2007 et cela fonctionne correctement dans les deux cas.

Ton graphique se trouve bien sur une feuille séparée ?

OUi mon graphique se trouve bien dans une autre feuille de type Chart appelée Graphique.

Je ne comprends pas, j'ai repris ton code dans un nouveau classeur pour voir si le problème ne venais pas d'une ligne de code précédente, mais j'ai toujours la même erreur...

As tu essayé sous excel 2003? Parce que tout marche bien sous 2007

Merci

Voici le code appelant la modification du graphique "Graphique"
J'espère que vous pourrez m'aider.

Code:

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
With Sheets("Maison")
s1 = "Individuel + solaire"
s2 = "Individuel"
s3 = "Décentralisé"
s4 = "Centralisé"
End With
k = 3
Nbes1 = 0
Nbes2 = 0
Nbes3 = 0
Nbes4 = 0
Sheets("Maison").Activate
For k = 3 To Cells(1, 1).Value + 2
If Cells(k, 2).Value = s1 Then
Nbes1 = Nbes1 + 1
ElseIf Cells(k, 2).Value = s2 Then
Nbes2 = Nbes2 + 1
ElseIf Cells(k, 2).Value = s3 Then
Nbes3 = Nbes3 + 1
ElseIf Cells(k, 2).Value = s4 Then
Nbes4 = Nbes4 + 1
End If
Next
Charts("Graphique").Activate
With Charts("Graphique")
    Charts("Graphique").HasTitle = True
    .ChartTitle.Text = "Réseau entier" & "-" & Sheets("Maison").Cells(1, 18).Value '<-- NomFeuille à adapter
End With
'Charts("Graphique").HasTitle = True
'Charts("Graphique").ChartTitle.Text = .Cells(3, 1).Value & "-" & .Cells(1, 18).Value
With Sheets("Maison")
If Nbes1 <> 0 Then
Charts("Graphique").SeriesCollection.NewSeries
Charts("Graphique").SeriesCollection(1).Name = s1
Charts("Graphique").SeriesCollection(1).Values = .Range("R3:R" & Nbes1 + 2)
Charts("Graphique").SeriesCollection(1).XValues = .Range("C3:C" & .Cells(1, 1).Value + 2)
End If
If Nbes2 <> 0 Then
Charts("Graphique").SeriesCollection.NewSeries
Charts("Graphique").SeriesCollection(2).Name = s2
  Charts("Graphique").SeriesCollection(2).Values = .Range(Cells(Nbes1 + 3, 18), Cells(Nbes1 + Nbes2 + 2, 18))
Charts("Graphique").SeriesCollection(2).XValues = .Range("C3:C" & .Cells(1, 1).Value + 2)
End If
If Nbes3 <> 0 Then
Charts("Graphique").SeriesCollection.NewSeries
Charts("Graphique").SeriesCollection(3).Name = s3
Charts("Graphique").SeriesCollection(3).Values = .Range(Cells(Nbes1 + Nbes2 + 3, 18), Cells(Nbes1 + Nbes2 + Nbes3 + 2, 18))
Charts("Graphique").SeriesCollection(3).XValues = .Range("C3:C" & .Cells(1, 1).Value + 2)
End If
If Nbes4 <> 0 Then
Charts("Graphique").SeriesCollection.NewSeries
Charts("Graphique").SeriesCollection(4).Name = s4
Charts("Graphique").SeriesCollection(4).Values = .Range(Cells(Nbes1 + Nbes2 + Nbes3 + 3, 18), Cells(Nbes1 + Nbes2 + Nbes3 + Nbes4 + 3, 18))
Charts("Graphique").SeriesCollection(4).XValues = .Range("C3:C" & .Cells(1, 1).Value + 2)
End If
End With

L'erreur est à la ligne du HasTitle=true

28/01/2011, 14h43
fring
Citation:

Envoyé par x0ran

As tu essayé sous excel 2003? Parce que tout marche bien sous 2007

Citation:

Envoyé par fring

Je viens de tester le petit bout de code sous 2003 et 2007 et cela fonctionne correctement dans les deux cas.

Il y a une différence entre ton code et celui que je t'ai proposé
Mon code :
Code:

1 2 3 4 With Charts("Graphique") .HasTitle = True .ChartTitle.Text = "Réseau entier" & "-" & Sheets("Maison").Cells(1, 18).Value '<-- NomFeuille à adapter End With
Ton code :
Code:

1 2 3 4 With Charts("Graphique") Charts("Graphique").HasTitle = True .ChartTitle.Text = "Réseau entier" & "-" & Sheets("Maison").Cells(1, 18).Value '<-- NomFeuille à adapter End With
Je n'ai pas 2003 sous la main mais c'est peut être cette ligne qui coince
Charts("Graphique").HasTitle = True

Sinon envoie moi ton fichier (en enlevant les données confidentielles) que j'y jette un oeil