[vba Excel] propriété Xvalues de la classe series
Résolu
tof008
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
-
21 août 2006 à 15:20
tof008 Messages postés 695 Date d'inscription jeudi 5 mai 2005 Statut Membre Dernière intervention 5 janvier 2010 - 22 août 2006 à 09:29
tof008 Messages postés 695 Date d'inscription jeudi 5 mai 2005 Statut Membre Dernière intervention 5 janvier 2010 - 22 août 2006 à 09:29
3 réponses
michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
32
21 août 2006 à 18:12
21 août 2006 à 18:12
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
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
tof008
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
33
22 août 2006 à 07:44
22 août 2006 à 07:44
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
Tu as une autre idée?
(Si la réponse vous convient, appuyez sur réponse acceptée...).
Noubliez pas de lire le REGLEMENT
tof008
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
33
22 août 2006 à 09:29
22 août 2006 à 09:29
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
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
