Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA - Chart.SeriesCollection(6).Values = ser6

VBA - Chart.SeriesCollection(6).Values = ser6

8 réponses
Avatar
twinley
Bonsoir,

Encore un mystère mystérieux.

J'utilise les 4 lignes suivantes sans Pb pour repositionner une droite dans
un graphe :
TLa = "={" & TLa1 & "," & TLb1 & "}"
TLb = "={" & TLa2 & "," & TLb2 & "}"
ActiveChart.SeriesCollection(7).XValues = TLa ' ex :
"={10.0}"
ActiveChart.SeriesCollection(7).Values = TLb ' ex :
"={3534,9.3533,08"}

Je voulais modifier le Values de la série du graph. pour redéfinir une
courbe, mais j'ai une erreur 1004.
col = "H"
nbbar =100
ser6 = " = Graph1!$" & col & "$12:$" & col & "$" & nbbar + 11
pour avoir dans Values par ex : =Graph1!$H$12:$H$111 ( syntaxe qui
existe dans le graph. et que je veux reproduire)

et c'est sur la ligne suivante que ça plante
ActiveSheet.ChartObjects("Graphique1").Chart.SeriesCollection(6).Values =
ser6

Je ne peux pas inscrire =Graph1!$H$12:$H$111 dans le Values de la série du
graph.

Différents essais avec :
ActiveSheet.ChartObjects("Graphique1").Activate
ActiveChart.SeriesCollection(6).Select
ser6 = YValues ( YValues est un nom défini)

donnent des erreurs. Comment puis je reparamétrer le Values du graph. ?

Merci pour votre aide.
--
à+twinley
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
twinley
Oh le coup de vice...
J'ai cru trouver mais ce n'est pas ça. J'ai toujours err 1004.
La syntaxe dans la macro de l'enregistreur est :

ActiveChart.SeriesCollection(6).Values = " = Graph1!R12C8:R111C8"

J'ai reproduit dans la macro cette chaîne RC:RC mais dans le graphique la
série contient la chaîne
= Graph1!$H$12:$H$111

Il faut bien que j'écrive = Graph1!$H$12:$H$111
--
à+twinley
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonsoir,

Encore un mystère mystérieux.

J'utilise les 4 lignes suivantes sans Pb pour repositionner une droite
dans

un graphe :
TLa = "={" & TLa1 & "," & TLb1 & "}"
TLb = "={" & TLa2 & "," & TLb2 & "}"
ActiveChart.SeriesCollection(7).XValues = TLa ' ex :
"={10.0}"
ActiveChart.SeriesCollection(7).Values = TLb ' ex :
"={3534,9.3533,08"}

Je voulais modifier le Values de la série du graph. pour redéfinir une
courbe, mais j'ai une erreur 1004.
col = "H"
nbbar 0
ser6 = " = Graph1!$" & col & "$12:$" & col & "$" & nbbar + 11
pour avoir dans Values par ex : =Graph1!$H$12:$H$111 ( syntaxe
qui

existe dans le graph. et que je veux reproduire)

et c'est sur la ligne suivante que ça plante
ActiveSheet.ChartObjects("Graphique1").Chart.SeriesCollection(6).Values > ser6

Je ne peux pas inscrire =Graph1!$H$12:$H$111 dans le Values de la série du
graph.

Différents essais avec :
ActiveSheet.ChartObjects("Graphique1").Activate
ActiveChart.SeriesCollection(6).Select
ser6 = YValues ( YValues est un nom défini)

donnent des erreurs. Comment puis je reparamétrer le Values du graph. ?

Merci pour votre aide.
--
à+twinley




Avatar
JpPradier
Bonsoir Twinley

A première vue, je dirais que tu devrais convertir ton nbbar 0 en texte => nbbar="100"

j-p
Avatar
JpPradier
Ou alors : Dans l'aide, le monsieur, il dit ça :
Charts("Chart1").SeriesCollection(1).Values = Worksheets("Sheet1").Range("C5:T5")

Donc adapté à ton Problème, ça donnerait :

ActiveChart.SeriesCollection(7).Values=Worksheets("Graph1").range("$" & col & "$12:$" & col &
(nbbar+11)

j-p
Avatar
twinley
Bonsoir JpPradier,

Encore une fois merci de te pencher sur mes errances.
J'ai placé directement une chaîne "111". Toujours erreur 1004.

Quand je regarde la variable intermédiaire ser6, elle contient bien ce que
je suis censé écrire dans la série :

ser6 = " = Graph1!$H$12:$H$111"

c'est ce que je vois dans le VBE en mode pas à pas en plaçant le curseur sur
la var.

J'ai déjà vu des posts sur ce Pb. La question est restée pendante.


--
à+twinley
"JpPradier" a écrit dans le message
de news:%
Bonsoir Twinley

A première vue, je dirais que tu devrais convertir ton nbbar 0 en
texte => nbbar="100"


j-p



Avatar
twinley
je vais creuser par là.
La syntaxe ne passe pas encore.
Ou as tu trouvé cette aide ?

--
à+twinley
"JpPradier" a écrit dans le message
de news:
Ou alors : Dans l'aide, le monsieur, il dit ça :
Charts("Chart1").SeriesCollection(1).Values Worksheets("Sheet1").Range("C5:T5")

Donc adapté à ton Problème, ça donnerait :

ActiveChart.SeriesCollection(7).Values=Worksheets("Graph1").range("$" &
col & "$12:$" & col &

(nbbar+11)

j-p



Avatar
JpPradier
Pour l'aide tu selectionnes Values dans le module VBA et tu appuies sur la touche magique : F1

j-p
Avatar
twinley
Oui , c'est bon, ça passe.
C'est la bonne syntaxe.

Bravo et milles merci. La semaine se termine en apothéose.
J'ai trouvé l'aide sur values. Je regardais seriescollection.

toutivabene

--
à+twinley
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
je vais creuser par là.
La syntaxe ne passe pas encore.
Ou as tu trouvé cette aide ?

--
à+twinley
"JpPradier" a écrit dans le message
de news:
Ou alors : Dans l'aide, le monsieur, il dit ça :
Charts("Chart1").SeriesCollection(1).Values > Worksheets("Sheet1").Range("C5:T5")

Donc adapté à ton Problème, ça donnerait :

ActiveChart.SeriesCollection(7).Values=Worksheets("Graph1").range("$" &
col & "$12:$" & col &

(nbbar+11)

j-p







Avatar
JpPradier
Il manque une fermeture de parenthese à la fin. En complet ca donne :

ActiveChart.SeriesCollection(7).Values=Worksheets("Graph1"). _
range("$" & col & "$12:$" & col & (nbbar+11))

j-p