Bonjour à tous,
je me joins à vous en espérant que vous ayez une solution à mon probléme
En fait g crée un graphe (plituot il est deja créer) auquel à l'aide d'une macro vba je l'alimente avec des données à laquelle la taille des données varie. mon souci c'est que ca bug a chaque ou la taille des donnée est inférieur à la précédente.
je voudrai savoir ou avoir si c'est possible une macro qui efface les données pour l'actualiser voici ma macro.
ActiveSheet.ChartObjects("Graphique 11").Activate
ActiveChart.ChartArea.Select
Debug.Print Worksheets("evolution DVRS ").Range("X1").Value
Dim k As Double
k = 1
Do
ActiveChart.SeriesCollection(1).Delete
k = k + 1
Loop While k <> Worksheets("evolution DVRS ").Range("X1").Value
For i = 1 To (DerLigne1 - 1)
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = Worksheets("evolution DVRS ").Range("DI5I16")
ActiveChart.SeriesCollection(i).Name = Worksheets("evolution DVRS ").Range("BC" & CStr(i + 1))
ActiveChart.SeriesCollection(i).Values = Workbooks("tbprodrcs.xls").Worksheets("evolution DVRS ").Range("BE" & CStr(i + 1) & ":" & "BP" & CStr(i + 1))
Next
Worksheets("evolution DVRS ").Range("X1").Value = Val(DerLigne1 - 1)
J'attend impatiemment vos réponses
Merci
cdt
je me joins à vous en espérant que vous ayez une solution à mon probléme
En fait g crée un graphe (plituot il est deja créer) auquel à l'aide d'une macro vba je l'alimente avec des données à laquelle la taille des données varie. mon souci c'est que ca bug a chaque ou la taille des donnée est inférieur à la précédente.
je voudrai savoir ou avoir si c'est possible une macro qui efface les données pour l'actualiser voici ma macro.
ActiveSheet.ChartObjects("Graphique 11").Activate
ActiveChart.ChartArea.Select
Debug.Print Worksheets("evolution DVRS ").Range("X1").Value
Dim k As Double
k = 1
Do
ActiveChart.SeriesCollection(1).Delete
k = k + 1
Loop While k <> Worksheets("evolution DVRS ").Range("X1").Value
For i = 1 To (DerLigne1 - 1)
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = Worksheets("evolution DVRS ").Range("DI5I16")
ActiveChart.SeriesCollection(i).Name = Worksheets("evolution DVRS ").Range("BC" & CStr(i + 1))
ActiveChart.SeriesCollection(i).Values = Workbooks("tbprodrcs.xls").Worksheets("evolution DVRS ").Range("BE" & CStr(i + 1) & ":" & "BP" & CStr(i + 1))
Next
Worksheets("evolution DVRS ").Range("X1").Value = Val(DerLigne1 - 1)
J'attend impatiemment vos réponses
Merci
cdt