Voilà, dans le livre de John Walkenbach sur les graphiques Excel 2003, on
note que dans les paramètres d'un graphique on peut modifier les valeurs
d'origine des axes x et y , et je voudrais donc le faire mais d'une façon
simple, c'est à dire qu'à la place d'éditer les paramètres du graphique pour
y changer les valeurs, j'aimerais changer les valeurs directement dans des
cellules (plus simple et plus rapide).
J'ai essayé de trouver des exemples, des aides sur ce sujet ou quelque chose
qui s'y rapproche mais rien...
Pour nommer un graphique (car j'ai plusieurs graphiques dans une page),
J'effectue la manouvre préconisée par John Walkenbach. Appuyer sur
contrôle, puis cliquer sur le graphique, sur la zone qui sélectionne
l'objet, il y a des petits ronds blancs sur le cadre externe. Le nom du
graphique apparaît dans la zone de nom dans le coin de l'extrême gauche de
la barre de formule, puis Taper le nouveau nom dans la zone et appuyer sur
entrer.
Walkenbach donne ensuite l'exemple suivant :
ActiveSheet.ChartObjects("Graphique 1").Activate ' "graphique 1
est déterminé comme ci-dessus
ActiveChart.Axes(xlValue).Select ' xlValue
force l'emploi de l'axe des coordonnées
With ActiveChart.Axes(xlValue)
.MinimumScale = Range("H1")
' ordonnée minimum
.MaximumScale = Range("H2")
' ordonnée maximum
.MinorUnit = Range("H3")
' unité secondaire
.MajorUnit = Range("H4")
' unité principale
End With
Avec le clic droit sur l'axe des ordonnées, on recherche format de l'axe /
onglet échelle,
On arrive à définir : le minimum, le maximum, l'unité secondaire,
l'unité principale.
Il manque comment définir l'axe des abscisses coupé à.
Qui pourrait m'aider à trouver les variables à mettre pour rendre l'échelle
des ordonnées dynamiques.
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
Francois L
(...)
Walkenbach donne ensuite l'exemple suivant :
ActiveSheet.ChartObjects("Graphique 1").Activate ' "graphique 1 est déterminé comme ci-dessus ActiveChart.Axes(xlValue).Select ' xlValue force l'emploi de l'axe des coordonnées With ActiveChart.Axes(xlValue) .MinimumScale = Range("H1") ' ordonnée minimum .MaximumScale = Range("H2") ' ordonnée maximum .MinorUnit = Range("H3") ' unité secondaire .MajorUnit = Range("H4") ' unité principale End With
Avec le clic droit sur l'axe des ordonnées, on recherche format de l'axe / onglet échelle,
On arrive à définir : le minimum, le maximum, l'unité secondaire, l'unité principale.
Il manque comment définir l'axe des abscisses coupé à.
Bonsoir,
Si j'ai bien compris... aller voir du coté de la propriété CrossesAt
-- François L
(...)
Walkenbach donne ensuite l'exemple suivant :
ActiveSheet.ChartObjects("Graphique 1").Activate ' "graphique 1
est déterminé comme ci-dessus
ActiveChart.Axes(xlValue).Select ' xlValue
force l'emploi de l'axe des coordonnées
With ActiveChart.Axes(xlValue)
.MinimumScale = Range("H1")
' ordonnée minimum
.MaximumScale = Range("H2")
' ordonnée maximum
.MinorUnit = Range("H3")
' unité secondaire
.MajorUnit = Range("H4")
' unité principale
End With
Avec le clic droit sur l'axe des ordonnées, on recherche format de l'axe /
onglet échelle,
On arrive à définir : le minimum, le maximum, l'unité secondaire,
l'unité principale.
Il manque comment définir l'axe des abscisses coupé à.
Bonsoir,
Si j'ai bien compris... aller voir du coté de la propriété CrossesAt
ActiveSheet.ChartObjects("Graphique 1").Activate ' "graphique 1 est déterminé comme ci-dessus ActiveChart.Axes(xlValue).Select ' xlValue force l'emploi de l'axe des coordonnées With ActiveChart.Axes(xlValue) .MinimumScale = Range("H1") ' ordonnée minimum .MaximumScale = Range("H2") ' ordonnée maximum .MinorUnit = Range("H3") ' unité secondaire .MajorUnit = Range("H4") ' unité principale End With
Avec le clic droit sur l'axe des ordonnées, on recherche format de l'axe / onglet échelle,
On arrive à définir : le minimum, le maximum, l'unité secondaire, l'unité principale.
Il manque comment définir l'axe des abscisses coupé à.
Bonsoir,
Si j'ai bien compris... aller voir du coté de la propriété CrossesAt
-- François L
Greffier
Bonjour,
Merci François. J'ai essayé pendant un bon bout de temps Crosses et CrossesAt, et je me suis décidé pour : .Crosses = xlAxisCrossesAutomatic
et tout semble correct pour mes graphiques à ordonnées dynamiques.
Dommage que Crosses ne figure sur aucun manuel.
Bonne journée,
Greffier.
"Francois L" a écrit dans le message de news: %
(...)
Walkenbach donne ensuite l'exemple suivant :
ActiveSheet.ChartObjects("Graphique 1").Activate ' "graphique 1 est déterminé comme ci-dessus ActiveChart.Axes(xlValue).Select ' xlValue force l'emploi de l'axe des coordonnées With ActiveChart.Axes(xlValue) .MinimumScale = Range("H1") ' ordonnée minimum .MaximumScale = Range("H2") ' ordonnée maximum .MinorUnit = Range("H3") ' unité secondaire .MajorUnit = Range("H4") ' unité principale End With
Avec le clic droit sur l'axe des ordonnées, on recherche format de l'axe / onglet échelle,
On arrive à définir : le minimum, le maximum, l'unité secondaire, l'unité principale.
Il manque comment définir l'axe des abscisses coupé à.
Bonsoir,
Si j'ai bien compris... aller voir du coté de la propriété CrossesAt
-- François L
Bonjour,
Merci François.
J'ai essayé pendant un bon bout de temps Crosses et CrossesAt, et je me suis
décidé pour :
.Crosses = xlAxisCrossesAutomatic
et tout semble correct pour mes graphiques à ordonnées dynamiques.
Dommage que Crosses ne figure sur aucun manuel.
Bonne journée,
Greffier.
"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de news:
%23J7tWgrVHHA.996@TK2MSFTNGP02.phx.gbl...
(...)
Walkenbach donne ensuite l'exemple suivant :
ActiveSheet.ChartObjects("Graphique 1").Activate ' "graphique
1 est déterminé comme ci-dessus
ActiveChart.Axes(xlValue).Select '
xlValue force l'emploi de l'axe des coordonnées
With ActiveChart.Axes(xlValue)
.MinimumScale = Range("H1") ' ordonnée minimum
.MaximumScale = Range("H2") ' ordonnée maximum
.MinorUnit = Range("H3") ' unité secondaire
.MajorUnit = Range("H4") ' unité principale
End With
Avec le clic droit sur l'axe des ordonnées, on recherche format de l'axe
/ onglet échelle,
On arrive à définir : le minimum, le maximum, l'unité secondaire,
l'unité principale.
Il manque comment définir l'axe des abscisses coupé à.
Bonsoir,
Si j'ai bien compris... aller voir du coté de la propriété CrossesAt
Merci François. J'ai essayé pendant un bon bout de temps Crosses et CrossesAt, et je me suis décidé pour : .Crosses = xlAxisCrossesAutomatic
et tout semble correct pour mes graphiques à ordonnées dynamiques.
Dommage que Crosses ne figure sur aucun manuel.
Bonne journée,
Greffier.
"Francois L" a écrit dans le message de news: %
(...)
Walkenbach donne ensuite l'exemple suivant :
ActiveSheet.ChartObjects("Graphique 1").Activate ' "graphique 1 est déterminé comme ci-dessus ActiveChart.Axes(xlValue).Select ' xlValue force l'emploi de l'axe des coordonnées With ActiveChart.Axes(xlValue) .MinimumScale = Range("H1") ' ordonnée minimum .MaximumScale = Range("H2") ' ordonnée maximum .MinorUnit = Range("H3") ' unité secondaire .MajorUnit = Range("H4") ' unité principale End With
Avec le clic droit sur l'axe des ordonnées, on recherche format de l'axe / onglet échelle,
On arrive à définir : le minimum, le maximum, l'unité secondaire, l'unité principale.
Il manque comment définir l'axe des abscisses coupé à.
Bonsoir,
Si j'ai bien compris... aller voir du coté de la propriété CrossesAt
-- François L
Francois L
Bonjour,
Merci François. J'ai essayé pendant un bon bout de temps Crosses et CrossesAt, et je me suis décidé pour : .Crosses = xlAxisCrossesAutomatic
(...)
Bonjour,
Un petit exemple : http://cjoint.com/?cykNoxH81C
-- François L
Bonjour,
Merci François.
J'ai essayé pendant un bon bout de temps Crosses et CrossesAt, et je me suis
décidé pour :
.Crosses = xlAxisCrossesAutomatic