OVH Cloud OVH Cloud

Graphique Excel à cellules variables

6 réponses
Avatar
ollagnij
Bonjour !

J'ai un prbleme pour creer une macro qui veuille bien prendre en compt
un tableau a longueur variable...

Normalment c'est comme ceci :

ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = Range("D4:D10")
ActiveChart.SeriesCollection(1).Values = Range("C4:C10")

Mais si je veux que mon tableaux se finnisse pas en D10 mais D8 pa
exemple comment je fais ?

J'ai par exemple stocké le 8 de D8 dans une cellule (V5) et remplac
par ca :

ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = Range("D4:D"&V5&"")
ActiveChart.SeriesCollection(1).Values = Range("C4:C"&V5&"")

Mais ca ne marche pas... :-(

Quelqu'un peut-il m'aider ????

Merci bcp

--
ollagni
-----------------------------------------------------------------------
ollagnij's Profile: http://www.msusenet.com/member.php?userid=273
View this thread: http://www.msusenet.com/t-187056740

6 réponses

Avatar
papou
Bonjour
Tu modifies
= Range("D4:D"&V5&"")
Par
= Range("D4:D" & V5)

Cordialement
Pascal

"ollagnij" a écrit dans le message de
news:

Bonjour !

J'ai un prbleme pour creer une macro qui veuille bien prendre en compte
un tableau a longueur variable...

Normalment c'est comme ceci :

ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = Range("D4:D10")
ActiveChart.SeriesCollection(1).Values = Range("C4:C10")

Mais si je veux que mon tableaux se finnisse pas en D10 mais D8 par
exemple comment je fais ?

J'ai par exemple stocké le 8 de D8 dans une cellule (V5) et remplace
par ca :

ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = Range("D4:D"&V5&"")
ActiveChart.SeriesCollection(1).Values = Range("C4:C"&V5&"")

Mais ca ne marche pas... :-(

Quelqu'un peut-il m'aider ????

Merci bcp !


--
ollagnij
------------------------------------------------------------------------
ollagnij's Profile: http://www.msusenet.com/member.php?userid'34
View this thread: http://www.msusenet.com/t-1870567404



Avatar
ChrisV
Bonjour ollagnij,

(non-testé):
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = Range("D4:D"&[V5])
ActiveChart.SeriesCollection(1).Values = Range("C4:C"&[V5])


ChrisV


"ollagnij" a écrit dans le message de
news:

Bonjour !

J'ai un prbleme pour creer une macro qui veuille bien prendre en compte
un tableau a longueur variable...

Normalment c'est comme ceci :

ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = Range("D4:D10")
ActiveChart.SeriesCollection(1).Values = Range("C4:C10")

Mais si je veux que mon tableaux se finnisse pas en D10 mais D8 par
exemple comment je fais ?

J'ai par exemple stocké le 8 de D8 dans une cellule (V5) et remplace
par ca :

ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = Range("D4:D"&V5&"")
ActiveChart.SeriesCollection(1).Values = Range("C4:C"&V5&"")

Mais ca ne marche pas... :-(

Quelqu'un peut-il m'aider ????

Merci bcp !


--
ollagnij
------------------------------------------------------------------------
ollagnij's Profile: http://www.msusenet.com/member.php?userid'34
View this thread: http://www.msusenet.com/t-1870567404



Avatar
ollagnij
Desole, mais les solutions que vous proposez ne marchent toujours pas

Erreur 1004 !!! :-(

Merci qd meme pour les solutions proposées

--
ollagni
-----------------------------------------------------------------------
ollagnij's Profile: http://www.msusenet.com/member.php?userid'3
View this thread: http://www.msusenet.com/t-187056740
Avatar
isabelle
bonjour ollagnij,

si tu execute la macro à partir d'un bouton control, n'oublie pas de mettre la propriété du bouton "TakeFocusOnClick" à false

isabelle


Desole, mais les solutions que vous proposez ne marchent toujours pas !

Erreur 1004 !!! :-(

Merci qd meme pour les solutions proposées !




Avatar
ollagnij
Je n'utilise aucun bouton control..

--
ollagni
-----------------------------------------------------------------------
ollagnij's Profile: http://www.msusenet.com/member.php?userid'3
View this thread: http://www.msusenet.com/t-187056740
Avatar
ollagnij
Up !!!!!!!!

--
ollagni
-----------------------------------------------------------------------
ollagnij's Profile: http://www.msusenet.com/member.php?userid'3
View this thread: http://www.msusenet.com/t-187056740