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...