OVH Cloud OVH Cloud

graphique modifier les ordonnées

3 réponses
Avatar
Greffier
Bonjour,



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.



J'ai peut-être été un peu long, excusez-moi.



J'espère ne pas avoir été nébuleux.



Merci, pour toutes vos suggestions et exemples.



Greffier.

3 réponses

Avatar
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

Avatar
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



Avatar
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