Probleme réinitialisation graphique avec tableau variable

Question

Salut à tous.

Alors voila, j'ai fait un graphique qui se met à jour suivant une liste. Cela marche bien. Cependant à chaque début de macro, je lui demande de m'effacer toutes les datas du tableau et la, il plante. Je n'arrive pas non plus à mettre tous les points du graphique au mm format.

ActiveSheet.ChartObjects("Graphique 182").Activate
ActiveChart.ChartArea.Select
nb =  ActiveChart.SeriesCollection.Count
For j = 1 To nb
    ActiveChart.SeriesCollection(1).Delete  ==> Il plante ici  Next

nb  = Sheets("DATA3").Range("A1") 'nb de ligne
ActiveSheet.ChartObjects("Graphique 182").Activate
For j =  1 To nb
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(j).Name = "=DATA3!R" & (j + 1) & "C1"
    ActiveChart.SeriesCollection(j).XValues = "=DATA3!R" & (j + 1) & "C12"
  ActiveChart.SeriesCollection(j).Values = "=DATA3!R" & (j + 1) & "C25"
    
    
    ActiveChart.SeriesCollection(j).Select ==> Il plante ici aussi.      
With Selection
        .MarkerBackgroundColorIndex  = 3
        .MarkerForegroundColorIndex = 3
        .MarkerStyle = xlSquare
        .Smooth = False
        .MarkerSize = 7
        .Shadow = False
    End With
Next

Application.ScreenUpdating = True
End Sub


Merci à tous

dru345 · Answer

Salut,

Personne n'a des idées??

Je cherche partout mais je ne trouve pas

Merci

Probleme réinitialisation graphique avec tableau variable

1 réponse

Votre réponse

Discussions similaires