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

tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention - 21 août 2006 à 15:20 - Dernière réponse : tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention
- 22 août 2006 à 09:29
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 
Afficher la suite 

3 réponses

Répondre au sujet
michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention - 21 août 2006 à 18:12
+2
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de michelxld
tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention - 22 août 2006 à 07:44
+1
Utile
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 
Commenter la réponse de tof008
tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention - 22 août 2006 à 09:29
+1
Utile
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 
Commenter la réponse de tof008

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.