Bonjour,
Je souhaiterais avoir des conseils pour pouvoir mettre à jour des graphiques sous Excel à chaque ajout de données. Pour le moment j'ai fait le code suivant mais ça ne fonctionne pas:
'Mise à jour du graphique "Graph Réception" par le même principe
Set leGraphiqueRéception = Charts("Graph réception")
leGraphiqueRéception.SeriesCollection(1).Name = CStr(leNumAnnée - 1)
leGraphiqueRéception.SeriesCollection(1).Values = "='Tableau suivi'!R" & leNumLigneDebAnnéePrec & "C4:R" & leNumLigneFinAnnéePrec & "C4"
leGraphiqueRéception.SeriesCollection(2).Name = CStr(leNumAnnée)
leGraphiqueRéception.SeriesCollection(2).Values = "='Tableau suivi'!R" & leNumLigneDebAnnée & "C4:R" & leNumLigneFinAnnée & "C4"
leGraphiqueRéception.SeriesCollection(3).Name = "Prévisions " & CStr(leNumAnnée)
leGraphiqueRéception.SeriesCollection(3).Values = "='Tableau suivi'!R" & leNumLigneDebAnnée & "C5:R" & leNumLigneFinAnnée & "C5"
Les données qui doivent apparaitre sur le graphique sont deux années précédent l'année en cours avec les prévisions pour l'année en cours. Actuellement je ne dispose que des données à partir de 2008 donc pour cette année il n'y aura que l'année 2008 et l'année 2009 avec ses prévisions.
Si quelqu'un pouvait me donner un coup de main,
Merci.
Lolo79
Je souhaiterais avoir des conseils pour pouvoir mettre à jour des graphiques sous Excel à chaque ajout de données. Pour le moment j'ai fait le code suivant mais ça ne fonctionne pas:
'Mise à jour du graphique "Graph Réception" par le même principe
Set leGraphiqueRéception = Charts("Graph réception")
leGraphiqueRéception.SeriesCollection(1).Name = CStr(leNumAnnée - 1)
leGraphiqueRéception.SeriesCollection(1).Values = "='Tableau suivi'!R" & leNumLigneDebAnnéePrec & "C4:R" & leNumLigneFinAnnéePrec & "C4"
leGraphiqueRéception.SeriesCollection(2).Name = CStr(leNumAnnée)
leGraphiqueRéception.SeriesCollection(2).Values = "='Tableau suivi'!R" & leNumLigneDebAnnée & "C4:R" & leNumLigneFinAnnée & "C4"
leGraphiqueRéception.SeriesCollection(3).Name = "Prévisions " & CStr(leNumAnnée)
leGraphiqueRéception.SeriesCollection(3).Values = "='Tableau suivi'!R" & leNumLigneDebAnnée & "C5:R" & leNumLigneFinAnnée & "C5"
Les données qui doivent apparaitre sur le graphique sont deux années précédent l'année en cours avec les prévisions pour l'année en cours. Actuellement je ne dispose que des données à partir de 2008 donc pour cette année il n'y aura que l'année 2008 et l'année 2009 avec ses prévisions.
Si quelqu'un pouvait me donner un coup de main,
Merci.
Lolo79
