Salut,
Grace à TITCOEUR (et beaucoup d'autres...) (encore merci) j'ai presque fini mon usine à graphique
Il me reste encore une truc qui plante (normal):
Je fais un graph par macro, avec le debut de code suivant :
Cette macro est appelé par une autre macro et recré donc en boucle unnouveau graph.
Au debut, pour determiner mes donnees en X j'avais ecrit :
activechart.seriescollection(1).XValues = 'testboucle.xls!ANNEE'
et
activexhart.seriescollection(1)Values = 'testboucle.xls!VALEUR'
Les 2 test boucles ANNEE et VALEUR appelé respectivement des fonctions nommées tels que:
ANNEE=decaler(feuil2!$b$2;;;nbval($b:$b)-1)
et
VALEUR=decaler(feuil2!$c$2;;;nbval($c:$c)-1)
Bien sa marche au premier tour de ma boucle, mais au second
sa plante et mes fonctions affiche :
.....feuil2!#REF.....
Donc j'écrit la formule direct dans ma macro avec FormulaLocal, mais sa marche pas du tout
J'ai vu aussi Application.worksheetfunction....
Si quelqu'un à des idées, j'accepte tout
Bonne journée et d'avance merci
A+
Fred
Grace à TITCOEUR (et beaucoup d'autres...) (encore merci) j'ai presque fini mon usine à graphique
Il me reste encore une truc qui plante (normal):
Je fais un graph par macro, avec le debut de code suivant :
Code:
Sub graph2()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets('Feuil2').Range('A2:C5'), PlotBy:= _
xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
[color=#FF0000]ActiveChart.SeriesCollection(1).XValues.FormulaLocal = '=DECALER(feuil2!$b$2;;;NBVAL(feuil2!$b:$b)-1)'
ActiveChart.SeriesCollection(1).Values.FormulaLocal = '=DECALER(feuil2!$c$2;;;NBVAL(feuil2!$c:$c)-1)'[/color]
ActiveChart.SeriesCollection(1).Name = '=Feuil2!R1C3'
ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil2'
.......
Cette macro est appelé par une autre macro et recré donc en boucle unnouveau graph.
Au debut, pour determiner mes donnees en X j'avais ecrit :
activechart.seriescollection(1).XValues = 'testboucle.xls!ANNEE'
et
activexhart.seriescollection(1)Values = 'testboucle.xls!VALEUR'
Les 2 test boucles ANNEE et VALEUR appelé respectivement des fonctions nommées tels que:
ANNEE=decaler(feuil2!$b$2;;;nbval($b:$b)-1)
et
VALEUR=decaler(feuil2!$c$2;;;nbval($c:$c)-1)
Bien sa marche au premier tour de ma boucle, mais au second
sa plante et mes fonctions affiche :
.....feuil2!#REF.....
Donc j'écrit la formule direct dans ma macro avec FormulaLocal, mais sa marche pas du tout
J'ai vu aussi Application.worksheetfunction....
Si quelqu'un à des idées, j'accepte tout
Bonne journée et d'avance merci
A+
Fred