Bonsoir tout le monde
VBA m'étonnera toujours par sa capacité à planter sans renvoyer de message d'erreur aucun.. je suis assez nouveau sur les graphes mais je ne pense pas avoir fait d'erreur sur cette procédure permettant d'ajouter des nouvelles séries à un graphe..
Code :
- Sub GraphSerieAdd(page As Worksheet, graph As String, titre As String, datatitre As Variant, dates As Variant, i As Integer)
- MsgBox ("entre" )
- page.ChartObjects(graph).SeriesCollection.NewSeries
- MsgBox ("crée" )
- With page.ChartObjects(graph).SeriesCollection(i)
- .Name = titre
- .Values = datatitre
- .XValues = dates
- End With
- MsgBox ("fin" )
- End Sub
|
Le problème bien sûr c'est qu'il ne rajoute rien au graphe et s'arrête après le entre sans rien dire. Des idées ?
Merci 
PS :
le i est bien aligné i=2 à n titres, le graphe étant créé sur le premier
Message édité par C501 le 24-05-2011 à 23:15:50
---------------
Sleep is overrated...