Bonjour les amis ,
J'ai un problème avec l'affichage des graphes. En effet, j'ai un tableau qui doit contenir plusieurs graphes
SetSourceData change de valeur (Range("A300
Ce qui ce passe c'est qu'il écrase les informations des graphe précédents et il met à jours tous les graphes avec les même valeurs que le nouveau graphe.
Merci
J'ai un problème avec l'affichage des graphes. En effet, j'ai un tableau qui doit contenir plusieurs graphes
SetSourceData change de valeur (Range("A300
Ce qui ce passe c'est qu'il écrase les informations des graphe précédents et il met à jours tous les graphes avec les même valeurs que le nouveau graphe.
Merci
Code:
Sub CreatGraph(j As Integer)
Charts.Add
With ActiveChart
.ChartType = xlColumnStacked
.SetSourceData source:=Worksheets(FeuilName).Range("A300:D303"), PlotBy:=xlRows
.SetElement (msoElementDataLabelCenter)
.Legend.Delete
.location Where:=xlLocationAsObject, Name:=TestName
End With
NbGraph = Worksheets(AbstractName).ChartObjects.Count
With Worksheets(TestName).ChartObjects(NbGraph)
.Left = Cells(j, Columna).Left
.Top = Cells(j, Columna).Top
.Height = Cells(j, Columna).Height
.Width = Cells(j, Columna).Width
End With
End Sub