Discussion :

[Potzo]

Bonjour a tous,

J'ai un petit problemem de mise en forme de mes graphiques que je genere automatiquement avec une macro.

Sur chaque graphique, il y a deux courbes (dont une droite lineaire (f(x)=x))
mon probleme est j'aimerai que mon graph (dont les axes en abscisses et en ordonnes sont des %) ait le meme maximum sur chaque qxe (145% par exemle)

Mais vu que ma macro genere une dizaine de graphs differents (chacun sur une nouvelle feuille), j'aimerai que le maximum des eaxes ne soit pas une valeur arbitraire, mais s'adapte aux valeurs maximales presente dans les donnees.
Par exemple si mon maximum en abscisse est 56% et celui en ordonne est 115%, j'aimerai que mes deux axes soient gradues jusqu'a 120%.

Merci d'avance

[Overcrash]

Bonjour,

Tu peux pas faire un truc de ce style :

Tu compare les valeurs, tu prend la plus grand tu lui ajoute 10% et tu l'attribut au deux axes ?

[Potzo]

hmmm du coup ca me rajoute un point sur mon graphique non ?

En fait j'aimerai savoir si y a une fonction qui serait du genre :

Axe.X.Max = Valeur que je veux (ou cellule) et de meme pour l'axe Y.

[Overcrash]

non,

On parle de la même chose je pensais que tu avais pas le raisonnement, j'ai trouver ceci sur le net essaye de voir si tu as pas un méthode pour modifier les axes comme tu veux.

le graphique est un Chart
quand le graphique voulu est selectionné, il devient l'ActiveChart
On modifie son titre avec Activechart.ChartTitle= "toto"
On modifie sa légende avec Activechart.Legend = "Ma Legende"
Utilise l'explorateur d'objet sous visual basic !

[Potzo]

Bien vu d'utiliser la bibliotheque des fonctions.
je connaissais pas et ca m'a permis de resoudre partiellement mon probleme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ActiveChart
.Axes(xlValue).MaximumScale = 2
end with

Ca me donne ce que je veux, sauf que j'arrive pas a faire pareil pour l'axe des abscisses pour le moment.

[Overcrash]

Ce ne serais pas ca : xlCategory ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.Axes(xlCategory).MinimumScale = 2

test et tiens moi au courant

[Potzo]

Non, c'est pas ca...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
   With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "FS(Preis)" & "_" & Graphik.Range(Donnees.Cells(1, 1).Offset(0, -2).Address).Value
 
 
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Preis(%)"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "FS(%)"
        .Axes(xlValue).MaximumScale = 2
 
 
    End With

Voila la partie de code sur laquelle je travaille.
L'axe des X est l'axe qui s'appelle Preis

[Overcrash]

Pour redimensionner les axes voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    With ActiveSheet.ChartObjects(1).Chart
 
        .Axes(xlCategory).MinimumScale = Range("E1").Value
        .Axes(xlCategory).MaximumScale = Range("E2").Value
        .Axes(xlValue).MinimumScale = Range("E3").Value
        .Axes(xlValue).MaximumScale = Range("E4").Value
 
    End With

Normalement ca devrait marcher ...

[Potzo]

En fait ca aurait pu marcher bien plus tot.
Mon probleme venait du type de graphe que j'avais choisis qui ne permettait pas de modifier l'axe des abscisses.

Avec celui ci : xlXYScatterSmooth ca marche nickel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
   .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Preis(%)"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "FS(%)"
        .Axes(xlValue).MaximumScale = 1.3
        .Axes(xlCategory).MaximumScale = 1.3

[Overcrash]

Ha oui bien pensé

Bonne continuation