dessin d'un graphique

[Jeanvoil]

Bonjour,

J'essaie de tracer un graphique avec en paramètre TEMP1 et TEMP2.

Voici un extrait du code:

ActiveChart.SeriesCollection(1).XValues = '=TabRécapTNQ!R' & TEMP1 & 'C4:R' & TEMP2 & 'C4' ' colonne semaine

Lorsque j'arrive sur la ligne avec Debug le compilateur affiche le message suivant :

IMPOSSIBLE DE DEFINIR LA PROPRIETE XValue DE LA CLASSE Series

Merci ..

 

[Creepy]

Bonjour,

En admettant que tu as deja une serie vierge d'inserée dans ton graph, voici le bout de code que j'utilise :

With ActiveChart
    .PlotArea.Select
    .SeriesCollection(1).XValues = '='Tableau'!R8C3:R8C' & FinX
    .SeriesCollection(1).Values = '='Tableau'!R9C3:R9C' & FinX
   End With

++

Creepy

 

[Jeanvoil]

Merci de ton coup de main Creeps,
voilà mon code pour tracer un graph. TEMP1 et TEMP2 remplacent R8C3:R8C et R9C3:R9C.

Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets('Graph').Range('C15')
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = '=TabRécapTNQ!R' & TEMP1 & 'C4:R' & TEMP2 & 'C4' ' colonne semaine
ActiveChart.SeriesCollection(1).Values = ''=TabRécapTNQ!'R' & TEMP1 & 'C12:R' & TEMP2 & 'C12' ' Colonne TQ
ActiveChart.SeriesCollection(1).Name = '=''NC'''
ActiveChart.Location Where:=xlLocationAsObject, Name:='TabRécapTNQ'
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel, LegendKey:=False

 

[Creepy]

RE,

Je comprends pas grand chose, sans plus de details !

L'idéal serait de mettre un exemple en PJ !

++

Creepy