J'ai un petit problème avec un Graph (de type Courbes, sous type 1er à
gauche, 1ère ligne) que je désire mettre à jour.
Au départ de la proc, le graph est déjà en place avec tout ce qu'il faut.
Je redéfini le titre et la plage source sans problème par ce code
'**********************************
Dim titre
titre=Sheets("Données_Graph").Range("A1")
Sheets("Graph_Capacité_Charge").Activate
ActiveChart.ChartTitle.Characters.Text = "Capacité - Charge" & Space(10)
& titre
Dim source
Set source = Sheets("Données_Graph").Range("C2:D10")
ActiveChart.SetSourceData source:=source, _
PlotBy:=xlColumns
'**********************************
mais je n'arrive pas à définir en VBA l'étiquette des
abscisses=Sheets("Données_Graph").Range("B2:B10")
qui à la mimine ce défini par clic droit / données sources / onglet séries
Qui pourrait me donner un coup de main ?
Merci
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
J'ai un petit problème avec un Graph (de type Courbes, sous type 1er à gauche, 1ère ligne) que je désire mettre à jour. Au départ de la proc, le graph est déjà en place avec tout ce qu'il faut.
Je redéfini le titre et la plage source sans problème par ce code
'********************************** Dim titre titre=Sheets("Données_Graph").Range("A1") Sheets("Graph_Capacité_Charge").Activate ActiveChart.ChartTitle.Characters.Text = "Capacité - Charge" & Space(10) & titre Dim source Set source = Sheets("Données_Graph").Range("C2:D10") ActiveChart.SetSourceData source:=source, _ PlotBy:=xlColumns '**********************************
mais je n'arrive pas à définir en VBA l'étiquette des abscisses=Sheets("Données_Graph").Range("B2:B10") qui à la mimine ce défini par clic droit / données sources / onglet séries
J'ai un petit problème avec un Graph (de type Courbes, sous type 1er à
gauche, 1ère ligne) que je désire mettre à jour.
Au départ de la proc, le graph est déjà en place avec tout ce qu'il faut.
Je redéfini le titre et la plage source sans problème par ce code
'**********************************
Dim titre
titre=Sheets("Données_Graph").Range("A1")
Sheets("Graph_Capacité_Charge").Activate
ActiveChart.ChartTitle.Characters.Text = "Capacité - Charge" & Space(10)
& titre
Dim source
Set source = Sheets("Données_Graph").Range("C2:D10")
ActiveChart.SetSourceData source:=source, _
PlotBy:=xlColumns
'**********************************
mais je n'arrive pas à définir en VBA l'étiquette des
abscisses=Sheets("Données_Graph").Range("B2:B10")
qui à la mimine ce défini par clic droit / données sources / onglet séries
J'ai un petit problème avec un Graph (de type Courbes, sous type 1er à gauche, 1ère ligne) que je désire mettre à jour. Au départ de la proc, le graph est déjà en place avec tout ce qu'il faut.
Je redéfini le titre et la plage source sans problème par ce code
'********************************** Dim titre titre=Sheets("Données_Graph").Range("A1") Sheets("Graph_Capacité_Charge").Activate ActiveChart.ChartTitle.Characters.Text = "Capacité - Charge" & Space(10) & titre Dim source Set source = Sheets("Données_Graph").Range("C2:D10") ActiveChart.SetSourceData source:=source, _ PlotBy:=xlColumns '**********************************
mais je n'arrive pas à définir en VBA l'étiquette des abscisses=Sheets("Données_Graph").Range("B2:B10") qui à la mimine ce défini par clic droit / données sources / onglet séries
Qui pourrait me donner un coup de main ?
Merci
Jean-François Aubert
Salut Twinley,
Merci pour ton tuyau. Je suis évidement déjà allé sur excelabo avant ma demande sur ce forum, mais sans trouver ce que je cherche.
Si quelqu'un à la soluce, je suis toujours preneur....
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"twinley" a écrit dans le message de news: OGF2yfH$
J'ai un petit problème avec un Graph (de type Courbes, sous type 1er à gauche, 1ère ligne) que je désire mettre à jour. Au départ de la proc, le graph est déjà en place avec tout ce qu'il faut.
Je redéfini le titre et la plage source sans problème par ce code
'********************************** Dim titre titre=Sheets("Données_Graph").Range("A1") Sheets("Graph_Capacité_Charge").Activate ActiveChart.ChartTitle.Characters.Text = "Capacité - Charge" & Space(10) & titre Dim source Set source = Sheets("Données_Graph").Range("C2:D10") ActiveChart.SetSourceData source:=source, _ PlotBy:=xlColumns '**********************************
mais je n'arrive pas à définir en VBA l'étiquette des abscisses=Sheets("Données_Graph").Range("B2:B10") qui à la mimine ce défini par clic droit / données sources / onglet séries
Qui pourrait me donner un coup de main ?
Merci
Salut Twinley,
Merci pour ton tuyau.
Je suis évidement déjà allé sur excelabo avant ma demande sur ce forum,
mais sans trouver ce que je cherche.
Si quelqu'un à la soluce, je suis toujours preneur....
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"twinley" <twinleymax@hotmail.com> a écrit dans le message de news:
OGF2yfH$EHA.3336@TK2MSFTNGP11.phx.gbl...
J'ai un petit problème avec un Graph (de type Courbes, sous type 1er à
gauche, 1ère ligne) que je désire mettre à jour.
Au départ de la proc, le graph est déjà en place avec tout ce qu'il faut.
Je redéfini le titre et la plage source sans problème par ce code
'**********************************
Dim titre
titre=Sheets("Données_Graph").Range("A1")
Sheets("Graph_Capacité_Charge").Activate
ActiveChart.ChartTitle.Characters.Text = "Capacité - Charge" &
Space(10) & titre
Dim source
Set source = Sheets("Données_Graph").Range("C2:D10")
ActiveChart.SetSourceData source:=source, _
PlotBy:=xlColumns
'**********************************
mais je n'arrive pas à définir en VBA l'étiquette des
abscisses=Sheets("Données_Graph").Range("B2:B10")
qui à la mimine ce défini par clic droit / données sources / onglet
séries
J'ai un petit problème avec un Graph (de type Courbes, sous type 1er à gauche, 1ère ligne) que je désire mettre à jour. Au départ de la proc, le graph est déjà en place avec tout ce qu'il faut.
Je redéfini le titre et la plage source sans problème par ce code
'********************************** Dim titre titre=Sheets("Données_Graph").Range("A1") Sheets("Graph_Capacité_Charge").Activate ActiveChart.ChartTitle.Characters.Text = "Capacité - Charge" & Space(10) & titre Dim source Set source = Sheets("Données_Graph").Range("C2:D10") ActiveChart.SetSourceData source:=source, _ PlotBy:=xlColumns '**********************************
mais je n'arrive pas à définir en VBA l'étiquette des abscisses=Sheets("Données_Graph").Range("B2:B10") qui à la mimine ce défini par clic droit / données sources / onglet séries
"Jean-François Aubert" <à a écrit dans le message de news: ulOjJyD$
Bonjour,
J'ai un petit problème avec un Graph (de type Courbes, sous type 1er à gauche, 1ère ligne) que je désire mettre à jour. Au départ de la proc, le graph est déjà en place avec tout ce qu'il faut.
Je redéfini le titre et la plage source sans problème par ce code
'********************************** Dim titre titre=Sheets("Données_Graph").Range("A1") Sheets("Graph_Capacité_Charge").Activate ActiveChart.ChartTitle.Characters.Text = "Capacité - Charge" & Space(10) & titre Dim source Set source = Sheets("Données_Graph").Range("C2:D10") ActiveChart.SetSourceData source:=source, _ PlotBy:=xlColumns '**********************************
mais je n'arrive pas à définir en VBA l'étiquette des abscisses=Sheets("Données_Graph").Range("B2:B10") qui à la mimine ce défini par clic droit / données sources / onglet séries
Qui pourrait me donner un coup de main ?
Merci
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de news: ulOjJyD$EHA.2876@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai un petit problème avec un Graph (de type Courbes, sous type 1er à
gauche, 1ère ligne) que je désire mettre à jour.
Au départ de la proc, le graph est déjà en place avec tout ce qu'il faut.
Je redéfini le titre et la plage source sans problème par ce code
'**********************************
Dim titre
titre=Sheets("Données_Graph").Range("A1")
Sheets("Graph_Capacité_Charge").Activate
ActiveChart.ChartTitle.Characters.Text = "Capacité - Charge" & Space(10)
& titre
Dim source
Set source = Sheets("Données_Graph").Range("C2:D10")
ActiveChart.SetSourceData source:=source, _
PlotBy:=xlColumns
'**********************************
mais je n'arrive pas à définir en VBA l'étiquette des
abscisses=Sheets("Données_Graph").Range("B2:B10")
qui à la mimine ce défini par clic droit / données sources / onglet séries
Qui pourrait me donner un coup de main ?
Merci
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Jean-François Aubert" <à a écrit dans le message de news: ulOjJyD$
Bonjour,
J'ai un petit problème avec un Graph (de type Courbes, sous type 1er à gauche, 1ère ligne) que je désire mettre à jour. Au départ de la proc, le graph est déjà en place avec tout ce qu'il faut.
Je redéfini le titre et la plage source sans problème par ce code
'********************************** Dim titre titre=Sheets("Données_Graph").Range("A1") Sheets("Graph_Capacité_Charge").Activate ActiveChart.ChartTitle.Characters.Text = "Capacité - Charge" & Space(10) & titre Dim source Set source = Sheets("Données_Graph").Range("C2:D10") ActiveChart.SetSourceData source:=source, _ PlotBy:=xlColumns '**********************************
mais je n'arrive pas à définir en VBA l'étiquette des abscisses=Sheets("Données_Graph").Range("B2:B10") qui à la mimine ce défini par clic droit / données sources / onglet séries
Qui pourrait me donner un coup de main ?
Merci
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
Alain CROS
Bonjour.
Je ne comprends pas bien. 1 courbe est constituée de 2 séries de valeurs. 1 pour l'axe des X --> Xvalues 1 pour l'axe des Y --> Values
Alain CROS
-----Original Message----- Salut Alain,
merci de ta réponse. c'est ce que donne l'enregistreur de macro, mais ne serait-ce pas les valeurs d'une série ? ou je ne sais pas l'utiliser ?
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
Bonjour.
Je ne comprends pas bien.
1 courbe est constituée de 2 séries de valeurs.
1 pour l'axe des X --> Xvalues
1 pour l'axe des Y --> Values
Alain CROS
-----Original Message-----
Salut Alain,
merci de ta réponse.
c'est ce que donne l'enregistreur de macro,
mais ne serait-ce pas les valeurs d'une série ?
ou je ne sais pas l'utiliser ?
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
N° de semaine sont les valeurs de l'abscisse Capacité et Charge sont les valeurs de l'ordonnées ( 2 séries)
Comme étiquettes des ordonnées, Excel met par défaut de 0 à 1300 , cela me convient Comme étiquettes des abscisses, Excel met par défaut de 1 à nb de valeurs , mais j'aimerai avoir les n° de semaine
Quand je construit à la main le graph, je sélectionne la plage sur 3 colonnes --> le graph à 3 séries --> je colle l'adresse de la plage de la colonne n° de semaine dans la zone Etiquette des abscisses de données sources / onglet séries , --> je supprime la série des n° de semaine, et là, j'ai ce que je souhaite
Où cela se gâte, c'est au moment ou je redéfini par VBA la plage source du graph (je veux pouvoir prendre en compte, par exemple, que les données de la semaine 40 à 48) c'est là qu'Excel me replante, par défaut, comme étiquettes des abscisses, de 1 à nb de valeurs (Excel a effacé l'adresse de la plage que j'avais mis dans la zone Etiquette des abscisses de données sources / onglet séries )
J'espère avoir été un peu plus clair dans mes explications......
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Alain CROS" a écrit dans le message de news: 079601c4fdb4$a95e32c0$ Bonjour.
Je ne comprends pas bien. 1 courbe est constituée de 2 séries de valeurs. 1 pour l'axe des X --> Xvalues 1 pour l'axe des Y --> Values
Alain CROS
-----Original Message----- Salut Alain,
merci de ta réponse. c'est ce que donne l'enregistreur de macro, mais ne serait-ce pas les valeurs d'une série ? ou je ne sais pas l'utiliser ?
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
Bonjour,
Salut Alain,
N° Sem Capacité
en heures Charge en heures
38 944 216
39 1000 496
40 1000 792
41 1000 904
N° de semaine sont les valeurs de l'abscisse
Capacité et Charge sont les valeurs de l'ordonnées ( 2 séries)
Comme étiquettes des ordonnées, Excel met par défaut de 0 à 1300 , cela me
convient
Comme étiquettes des abscisses, Excel met par défaut de 1 à nb de valeurs ,
mais j'aimerai avoir les n° de semaine
Quand je construit à la main le graph, je sélectionne la plage sur 3
colonnes --> le graph à 3 séries
--> je colle l'adresse de la plage de la colonne n° de semaine dans la zone
Etiquette des abscisses
de données sources / onglet séries , --> je supprime la série des n° de
semaine,
et là, j'ai ce que je souhaite
Où cela se gâte, c'est au moment ou je redéfini par VBA la plage source du
graph
(je veux pouvoir prendre en compte, par exemple, que les données de la
semaine 40 à 48)
c'est là qu'Excel me replante, par défaut, comme étiquettes des abscisses,
de 1 à nb de valeurs
(Excel a effacé l'adresse de la plage que j'avais mis dans la zone Etiquette
des abscisses
de données sources / onglet séries )
J'espère avoir été un peu plus clair dans mes explications......
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Alain CROS" <PERSONNE@ICI> a écrit dans le message de news:
079601c4fdb4$a95e32c0$a601280a@phx.gbl...
Bonjour.
Je ne comprends pas bien.
1 courbe est constituée de 2 séries de valeurs.
1 pour l'axe des X --> Xvalues
1 pour l'axe des Y --> Values
Alain CROS
-----Original Message-----
Salut Alain,
merci de ta réponse.
c'est ce que donne l'enregistreur de macro,
mais ne serait-ce pas les valeurs d'une série ?
ou je ne sais pas l'utiliser ?
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
N° de semaine sont les valeurs de l'abscisse Capacité et Charge sont les valeurs de l'ordonnées ( 2 séries)
Comme étiquettes des ordonnées, Excel met par défaut de 0 à 1300 , cela me convient Comme étiquettes des abscisses, Excel met par défaut de 1 à nb de valeurs , mais j'aimerai avoir les n° de semaine
Quand je construit à la main le graph, je sélectionne la plage sur 3 colonnes --> le graph à 3 séries --> je colle l'adresse de la plage de la colonne n° de semaine dans la zone Etiquette des abscisses de données sources / onglet séries , --> je supprime la série des n° de semaine, et là, j'ai ce que je souhaite
Où cela se gâte, c'est au moment ou je redéfini par VBA la plage source du graph (je veux pouvoir prendre en compte, par exemple, que les données de la semaine 40 à 48) c'est là qu'Excel me replante, par défaut, comme étiquettes des abscisses, de 1 à nb de valeurs (Excel a effacé l'adresse de la plage que j'avais mis dans la zone Etiquette des abscisses de données sources / onglet séries )
J'espère avoir été un peu plus clair dans mes explications......
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Alain CROS" a écrit dans le message de news: 079601c4fdb4$a95e32c0$ Bonjour.
Je ne comprends pas bien. 1 courbe est constituée de 2 séries de valeurs. 1 pour l'axe des X --> Xvalues 1 pour l'axe des Y --> Values
Alain CROS
-----Original Message----- Salut Alain,
merci de ta réponse. c'est ce que donne l'enregistreur de macro, mais ne serait-ce pas les valeurs d'une série ? ou je ne sais pas l'utiliser ?
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
Alain CROS
Bonjour.
Exemple ici.
http://cjoint.com/?btv7IOROyZ
Alain CROS
"Jean-François Aubert" <à a écrit dans le message de news: eyPwxlk$
Bonjour.
Exemple ici.
http://cjoint.com/?btv7IOROyZ
Alain CROS
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de news: eyPwxlk$EHA.2572@tk2msftngp13.phx.gbl...
