vsan
XLDnaute Junior
[En cours, toujours...][VBA - Excel 2000] Plage de données d'un graphique maj auto
Bonjour à tous,
J'aimerai automatiser la mise à jour de mes graphiques en utilisant les macros.
J'ai enregistré mes actions et j'ai tenté d'introduire un paramètre "numero" afin d'automatiser tout ça...
Je vous met un bout de code :
ça bug à la fin de la ligne :
ActiveChart.SeriesCollection(1).XValues = "='Tableau ventilé'!cells(1,3):cells(2,numero)"
Je pense que j'ai mal écrit les "range" et autres plages de données.
Mais je bloque, pouvez-vuos m'aider à ce sujet?
Merci d'avance,
Vincent
Et ça bug à la fin de la ligne
Bonjour à tous,
J'aimerai automatiser la mise à jour de mes graphiques en utilisant les macros.
J'ai enregistré mes actions et j'ai tenté d'introduire un paramètre "numero" afin d'automatiser tout ça...
Je vous met un bout de code :
Code:
Sub Macro1()
'
Dim numero As Integer
numero = Cells(2, 20).Value
'
'Graph Evolution du nombre de pièces produites
ActiveSheet.ChartObjects("Graphique 5").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "='Tableau ventilé'!cells(1,3):cells(2,numero)"
ActiveChart.SeriesCollection(1).Values = "='Tableau ventilé'!cells(17,3):cells(17,numero)"
ActiveChart.SeriesCollection(2).Values = "='Tableau ventilé'!cells(18,3):cells(18,numero)"
ActiveChart.SeriesCollection(3).Values = "='Tableau ventilé'!cells(19,3):cells(19,numero)"
ActiveChart.SeriesCollection(4).Values = "='Tableau ventilé'!cells(20,3):cells(20,numero)"
ActiveWindow.Visible = False
Windows("2007 - Tableau de bord.xls").Activate
Cells(2, 20).Select
ActiveCell.FormulaR1C1 = numero + 1
Range("A1").Select
End Sub
ça bug à la fin de la ligne :
ActiveChart.SeriesCollection(1).XValues = "='Tableau ventilé'!cells(1,3):cells(2,numero)"
Je pense que j'ai mal écrit les "range" et autres plages de données.
Mais je bloque, pouvez-vuos m'aider à ce sujet?
Merci d'avance,
Vincent
Et ça bug à la fin de la ligne
Dernière édition: