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("A300303"))à chaque création du graphe.
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("A300303"))à chaque création du graphe.
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