erreur graphique

[cyrus55160]

Bonjour,

J'ai une feuille excel sur lequel j'ai un graphique (histogramme), dans ma macro je lui demande la chose suivante:
ActiveSheet.ChartObjects("sem-mer").Activate

A chaque fois message d'erreur :
impossible de lire la propriété chartobjects de la classe worksheets


Mon graph est nommé avec la ligne suivante:
ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = "sem-mer"

J'ai la meme chose avec un autre graphique et ca marche, je ne comprends pas ce qui se passe.

Merci

 

[CB60]

Re : erreur graphique

Bonjour
essai cela
ActiveSheet.Shapes("sem-mer").Activate

 

[cyrus55160]

Re : erreur graphique

salut,

Reponse : Propriété ou methode non géré par cet objet

ca marche pas

merci quand meme

 

[CB60]

Re : erreur graphique

Re
Pourrais ton avoir ta macro complete?

 

[cyrus55160]

Re : erreur graphique

Voici un bout du code :

Sub test()
.
.
.
.
Range("A3:B" & nblignes5).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Données filtrées 2").Range("A3:B" & nblignes5) _
, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil3"
ActiveChart.HasLegend = False
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Characters.Text = "semaine S-1"
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.AutoScaleFont = False
With Selection.TickLabels.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 8
End With
With Selection.TickLabels
.Alignment = xlCenter
.Offset = 100
.ReadingOrder = xlContext
.Orientation = 45
End With
ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = "sem-mer"
Sheets("Feuil3").Select
With ActiveSheet.Shapes("sem-mer")
.IncrementLeft -227.25
.IncrementTop -36.75
.ScaleWidth 1.15, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.15, msoFalse, msoScaleFromTopLeft
End With
ActiveSheet.ChartObjects("sem-mer").Activate
ActiveChart.SeriesCollection("sem-mer").Select
Nb_points = ActiveChart.SeriesCollection("sem-mer").Points.Count
For i = 1 To Nb_points
categorie = Sheets("Données filtrées 2").Cells(2 + i, 3).Value
Select Case categorie
Case Is = "INDUIT"
c = 2
ActiveChart.SeriesCollection("sem-mer").Points(i).Interior.ColorIndex = c
Case Is = "FIABILITE"
c = 34
ActiveChart.SeriesCollection("sem-mer").Points(i).Interior.ColorIndex = c
Case Is = "FONCTIONNEL"
c = 35
ActiveChart.SeriesCollection("sem-mer").Points(i).Interior.ColorIndex = c
Case Else
c = 39
ActiveChart.SeriesCollection("sem-mer").Points(i).Interior.ColorIndex = c
End Select

Next i
End sub

 

[tototiti2008]

Re : erreur graphique

Bonjour à tous,

et si tu essayes :

ActiveSheet.ChartObjects("sem-mer").Select

avant le Activate, ça donne quoi ?

 

[cyrus55160]

Re : erreur graphique

re,

ca ne marche pas.

 

[tototiti2008]

Re : erreur graphique

et en dernière question bête : tu n'as pas plusieurs graphiques qui s'appellent "sem-mer" sur la même feuille ?

 

[cyrus55160]

Re : erreur graphique

non je n'en ai qu'un.

 

[tototiti2008]

Re : erreur graphique

finalement encore une question idiote (comme quoi, quand on cherche on peut en trouver plein 🙂)
et ta feuille n'est pas protégée, non plus ?

 

[tototiti2008]

Re : erreur graphique

et si tu fais tourner ce petit code, ça donne quoi ?

Sub test()
i = 0
For Each CO In ActiveSheet.ChartObjects
    i = i + 1
    MsgBox i & " : " & CO.Name
    CO.Activate
Next
End Sub

 

[Pierrot93]

Re : erreur graphique

Bonsoir à tous

il me semble que ton problème est également lié à celui-ci, auquel tu n'as pas donné suite d'ailleurs...

https://www.excel-downloads.com/threads/graphique-couleur-automatique.105347/

@+

 

[cyrus55160]

Re : erreur graphique

re

pour tototiti : cela ne marche pas il passe directement a la fin de la macro.

Pour pierrot: c'est vrai j'ai oublié de donner suite hier car ,j'avais trouvé entre temps et j'étais à fond dans mon codeet j'ai plus pensé à regarder, je m'en excuse.

 

[tototiti2008]

Re : erreur graphique

ça veut dire qu'il considère que tu n'as pas de ChartObject dans la feuille...

 

[CB60]

Re : erreur graphique

Bonsoir
je pense qu'il vas falloir le fichier complet pour pouvoir solutionner ton soucis