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: