[Excel-VBA] Rajouter Série .newseries

Rajouter Série .newseries [Excel-VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 24-05-2011 à 23:10:47    

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 :
  1. Sub GraphSerieAdd(page As Worksheet, graph As String, titre As String, datatitre As Variant, dates As Variant, i As Integer)
  2. MsgBox ("entre" )
  3. page.ChartObjects(graph).SeriesCollection.NewSeries
  4. MsgBox ("crée" )
  5. With page.ChartObjects(graph).SeriesCollection(i)
  6.     .Name = titre
  7.     .Values = datatitre
  8.     .XValues = dates
  9. End With
  10. MsgBox ("fin" )
  12. 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  :jap:

 

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

Marsh Posté le 24-05-2011 à 23:10:47   

Reply

Marsh Posté le 25-05-2011 à 16:31:38    

Et tu appelles ton sub comment ?


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 25-05-2011 à 17:16:00    

Call Graph bla bla
 
Mais plus besoin car I've fucking found à l'instant \o/ \o/ \o/
 
Tout le problème venait du fait que j'ai fait  
 
With page.ChartObjects(graph).SeriesCollection(i)
 
alors qu'en fait - chose que j'ignorais - les chart sont une sous-série de chartobject
 
d'où
 
With page.ChartObjects(graph).chart.SeriesCollection(i)
 
Fallait le savoir mais ca marche :love: et une dizaine de pages de graphes générées :love:


---------------
Sleep is overrated...
Reply

Marsh Posté le 26-05-2011 à 14:42:54    

Encore un léger soucis de graphe :
 
mes dates s'affichent correctement puis, au bout de 30 minutes (sans toucher à rien) ou lorsque je réouvre le fichier => reviennent en format 50300202010.... des idées ? car le graphe qui déconne seul c'est vraiment une première pour moi xD


---------------
Sleep is overrated...
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed