[vba Excel] propriété Xvalues de la classe series

[Résolu]
Signaler
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
-
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
-
Bonjour à tous!
Voila mon problême. J'ai crée déjà des 10aines de fichiers Excel contenant des graphiques utilisant des données variables... Je n'ai jamais eu aucun probleme, mais la, je recois une erreur : 1004, impossible de définir la proprété XValues de la classe Séries
J'ai tout essayé (sauf la bonne solution bien sur...) alors si quelqu'un pouvait me filer un coup de main, ca serait parfait....
Voila le code qui plante : 

   ActiveSheet.ChartObjects("Graphique 4").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).XValues = "=Global!R3C1:R" & i & "C1"
    ActiveChart.SeriesCollection(1).Values = "=Global!R3C5:R" & i & "C5"

L'eereur apparait au niveau des deux lignes en rouge....
Merci à ceux qui pourront m'aider!

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT 

3 réponses

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
28
bonjour

tu peux tester cette adaptation

Dim Plage As Range, plageX As Range


Set plageX = Sheets("Global").Range(Cells(3, 1), Cells(i, 1))
Set Plage = Sheets("Global").Range(Cells(3, 5), Cells(i, 5))


ActiveChart.SeriesCollection(1).XValues = plageX
ActiveChart.SeriesCollection(1).Values = Plage

bonne soiree
michel
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
30
Merci de ta réponse, j'ai tenté, mais maintenant j'ai le message :  la méthode Cells de l'objet global a échoué...
Tu as une autre idée?

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT 
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
30
Et voila problême résolu de cette maniére :
  Dim Plage As Range, plageX As Range
   
    Set plageX = Range(cells(3, 1), cells(i, 1))
    Set PlageP = Range(cells(3, 5), cells(i, 5))
    ActiveSheet.ChartObjects("Graphique 8").Activate



   
    ActiveChart.SeriesCollection(1).Values = PlageP
    ActiveChart.SeriesCollection(1).XValues = plageX

Alors ne me demandez pas ce qui ne marchait pas, mais maintenant ca marche! Merci Michelxld





         (Si la réponse vous convient, appuyez sur réponse acceptée...).




                           Noubliez pas de lire le REGLEMENT