Ce que je demande me paraît infaisable, mais si je pose la question, c'est
que j'ai tout de même espoir que quelqu'un me dise "OUI, c'est possible !"
Je voudrais modifier automatiquement les limites supérieure et inférieure
d'un graphique, en entrant ces valeurs dans un tableau.
Voici ce tableau :
X Y
Mini 01/02/2005 13.4
Maxi 26/02/2005 13.5
Donc ici mon graphique se termine (sur les x) le 26/02/2005. Si je remplace
dans mon tableau cette valeur par 15/03/2005, je voudrais que mon graphique
se termine maintenant le 15/03/2005.
Idem pour la limite en Y.
Vous allez me dire de modifier l'échelle du graphique directement en
cliquant droit sur un des axes, rubrique "échelle". Mais mon problème est que
j'ai beaucoup de graphiques à modifier en même temps. Si j'arrive à modifier
les limites des graphiques grâce à ce tableau, ce sera un gain de temps
appréciable.
Merci d'avance à la brave âme charitable qui pourra m'aider.
Mathieu
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
garnote
Salut Mathieu,
Oui oui c'est faisable. Essaie cette macro dans laquelle graphe1 est le nom que j'ai donne au graphique. Les dates sont en E1, E2 Les Y sont en F1, F2. Tu associes la macro a un bouton sur lequel tu frappes au moment qui te convient !
Sub Mini_Max() d1 = [e1] d2 = [e2] y1 = [f1] y2 = [f2] Set ici = ActiveSheet.ChartObjects("graphe1").Chart With ici.Axes(xlValue) .MinimumScale = y1 .MaximumScale = y2 End With With ici.Axes(xlCategory) .MinimumScale = d1 .MaximumScale = d2 End With End Sub
Macro a adapter. Cela te convient-il ?
Serge
"limites d'un graphique" <limites d'un wrote in message news:
Bonjour tout le monde.
Ce que je demande me paraît infaisable, mais si je pose la question, c'est que j'ai tout de même espoir que quelqu'un me dise "OUI, c'est possible !"
Je voudrais modifier automatiquement les limites supérieure et inférieure d'un graphique, en entrant ces valeurs dans un tableau. Voici ce tableau : X Y Mini 01/02/2005 13.4 Maxi 26/02/2005 13.5 Donc ici mon graphique se termine (sur les x) le 26/02/2005. Si je remplace dans mon tableau cette valeur par 15/03/2005, je voudrais que mon graphique se termine maintenant le 15/03/2005. Idem pour la limite en Y.
Vous allez me dire de modifier l'échelle du graphique directement en cliquant droit sur un des axes, rubrique "échelle". Mais mon problème est que j'ai beaucoup de graphiques à modifier en même temps. Si j'arrive à modifier les limites des graphiques grâce à ce tableau, ce sera un gain de temps appréciable.
Merci d'avance à la brave âme charitable qui pourra m'aider. Mathieu
Salut Mathieu,
Oui oui c'est faisable. Essaie cette macro dans laquelle
graphe1 est le nom que j'ai donne au graphique.
Les dates sont en E1, E2
Les Y sont en F1, F2.
Tu associes la macro a un bouton sur lequel
tu frappes au moment qui te convient !
Sub Mini_Max()
d1 = [e1]
d2 = [e2]
y1 = [f1]
y2 = [f2]
Set ici = ActiveSheet.ChartObjects("graphe1").Chart
With ici.Axes(xlValue)
.MinimumScale = y1
.MaximumScale = y2
End With
With ici.Axes(xlCategory)
.MinimumScale = d1
.MaximumScale = d2
End With
End Sub
Macro a adapter.
Cela te convient-il ?
Serge
"limites d'un graphique" <limites d'un graphique@discussions.microsoft.com>
wrote in message news:44F85A44-963E-4835-807A-026E0AE0ABCB@microsoft.com...
Bonjour tout le monde.
Ce que je demande me paraît infaisable, mais si je pose la question, c'est
que j'ai tout de même espoir que quelqu'un me dise "OUI, c'est possible !"
Je voudrais modifier automatiquement les limites supérieure et inférieure
d'un graphique, en entrant ces valeurs dans un tableau.
Voici ce tableau :
X Y
Mini 01/02/2005 13.4
Maxi 26/02/2005 13.5
Donc ici mon graphique se termine (sur les x) le 26/02/2005. Si je
remplace
dans mon tableau cette valeur par 15/03/2005, je voudrais que mon
graphique
se termine maintenant le 15/03/2005.
Idem pour la limite en Y.
Vous allez me dire de modifier l'échelle du graphique directement en
cliquant droit sur un des axes, rubrique "échelle". Mais mon problème est
que
j'ai beaucoup de graphiques à modifier en même temps. Si j'arrive à
modifier
les limites des graphiques grâce à ce tableau, ce sera un gain de temps
appréciable.
Merci d'avance à la brave âme charitable qui pourra m'aider.
Mathieu
Oui oui c'est faisable. Essaie cette macro dans laquelle graphe1 est le nom que j'ai donne au graphique. Les dates sont en E1, E2 Les Y sont en F1, F2. Tu associes la macro a un bouton sur lequel tu frappes au moment qui te convient !
Sub Mini_Max() d1 = [e1] d2 = [e2] y1 = [f1] y2 = [f2] Set ici = ActiveSheet.ChartObjects("graphe1").Chart With ici.Axes(xlValue) .MinimumScale = y1 .MaximumScale = y2 End With With ici.Axes(xlCategory) .MinimumScale = d1 .MaximumScale = d2 End With End Sub
Macro a adapter. Cela te convient-il ?
Serge
"limites d'un graphique" <limites d'un wrote in message news:
Bonjour tout le monde.
Ce que je demande me paraît infaisable, mais si je pose la question, c'est que j'ai tout de même espoir que quelqu'un me dise "OUI, c'est possible !"
Je voudrais modifier automatiquement les limites supérieure et inférieure d'un graphique, en entrant ces valeurs dans un tableau. Voici ce tableau : X Y Mini 01/02/2005 13.4 Maxi 26/02/2005 13.5 Donc ici mon graphique se termine (sur les x) le 26/02/2005. Si je remplace dans mon tableau cette valeur par 15/03/2005, je voudrais que mon graphique se termine maintenant le 15/03/2005. Idem pour la limite en Y.
Vous allez me dire de modifier l'échelle du graphique directement en cliquant droit sur un des axes, rubrique "échelle". Mais mon problème est que j'ai beaucoup de graphiques à modifier en même temps. Si j'arrive à modifier les limites des graphiques grâce à ce tableau, ce sera un gain de temps appréciable.
Merci d'avance à la brave âme charitable qui pourra m'aider. Mathieu
garnote
Salut Mathieu,
J'ai ajoute .AxisBetweenCategories = False pour que le graphique (type courbe) commence et finisse exactement aux dates specifiees.
Sub Mini_MAx() d1 = [e1] d2 = [e2] y1 = [f1] y2 = [f2] Set ici = ActiveSheet.ChartObjects("graphe1").Chart With ici.Axes(xlValue) .MinimumScale = y1 .MaximumScale = y2 End With With ici.Axes(xlCategory) .MinimumScale = d1 .MaximumScale = d2 .AxisBetweenCategories = False End With End Sub
Serge
Salut Mathieu,
J'ai ajoute .AxisBetweenCategories = False
pour que le graphique (type courbe) commence
et finisse exactement aux dates specifiees.
Sub Mini_MAx()
d1 = [e1]
d2 = [e2]
y1 = [f1]
y2 = [f2]
Set ici = ActiveSheet.ChartObjects("graphe1").Chart
With ici.Axes(xlValue)
.MinimumScale = y1
.MaximumScale = y2
End With
With ici.Axes(xlCategory)
.MinimumScale = d1
.MaximumScale = d2
.AxisBetweenCategories = False
End With
End Sub
J'ai ajoute .AxisBetweenCategories = False pour que le graphique (type courbe) commence et finisse exactement aux dates specifiees.
Sub Mini_MAx() d1 = [e1] d2 = [e2] y1 = [f1] y2 = [f2] Set ici = ActiveSheet.ChartObjects("graphe1").Chart With ici.Axes(xlValue) .MinimumScale = y1 .MaximumScale = y2 End With With ici.Axes(xlCategory) .MinimumScale = d1 .MaximumScale = d2 .AxisBetweenCategories = False End With End Sub
Serge
garnote
Si tous les graphiques de la feuille doivent subir le meme traitement, il y a ceci :
Sub Mini_MAx() d1 = [e1] d2 = [e2] y1 = [f1] y2 = [f2] Application.ScreenUpdating = False For Each graphique In ActiveSheet.ChartObjects Set ici = graphique.Chart With ici.Axes(xlValue) .MinimumScale = y1 .MaximumScale = y2 End With With ici.Axes(xlCategory) .MinimumScale = d1 .MaximumScale = d2 .AxisBetweenCategories = False End With Next graphique End Sub
Serge
Si tous les graphiques de la feuille doivent
subir le meme traitement, il y a ceci :
Sub Mini_MAx()
d1 = [e1]
d2 = [e2]
y1 = [f1]
y2 = [f2]
Application.ScreenUpdating = False
For Each graphique In ActiveSheet.ChartObjects
Set ici = graphique.Chart
With ici.Axes(xlValue)
.MinimumScale = y1
.MaximumScale = y2
End With
With ici.Axes(xlCategory)
.MinimumScale = d1
.MaximumScale = d2
.AxisBetweenCategories = False
End With
Next graphique
End Sub
Si tous les graphiques de la feuille doivent subir le meme traitement, il y a ceci :
Sub Mini_MAx() d1 = [e1] d2 = [e2] y1 = [f1] y2 = [f2] Application.ScreenUpdating = False For Each graphique In ActiveSheet.ChartObjects Set ici = graphique.Chart With ici.Axes(xlValue) .MinimumScale = y1 .MaximumScale = y2 End With With ici.Axes(xlCategory) .MinimumScale = d1 .MaximumScale = d2 .AxisBetweenCategories = False End With Next graphique End Sub
