Macro pour choisir l'échelle d'un graph

Le
Arnaud
Bonjour,

Je voudrais choisir l'chelle d'un graph partir de 2
valeurs situ dans 2 cases d'Excel ;

J'ai fait la macro suivante :

Worksheets("synthse").ChartObjects("Graphique
1").Chart.Axes(xlValue).MinimumScale = Worksheets
("synthse").[f5]

Worksheets("synthse").ChartObjects("Graphique
1").Chart.Axes(xlValue).MaximumScale = Worksheets
("synthse").[f6]

Elle ne fonctionne pas, je ne comprends pas pourquoi.
Merci de votre aide

Arnaud
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Misange
Le #1288985
Bonjour,
Il y a un addin de Tushar mehta (gratuit) qui fait cela très bien
http://www.excelabo.net/xl/graph.php#minimaxi

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

le 02/04/2004 15:13:
Bonjour,

Je voudrais choisir l'échelle d'un graph à partir de 2
valeurs situé dans 2 cases d'Excel ;

J'ai fait la macro suivante :

Worksheets("synthèse").ChartObjects("Graphique
1").Chart.Axes(xlValue).MinimumScale = Worksheets
("synthèse").[f5]

Worksheets("synthèse").ChartObjects("Graphique
1").Chart.Axes(xlValue).MaximumScale = Worksheets
("synthèse").[f6]

Elle ne fonctionne pas, je ne comprends pas pourquoi.
Merci de votre aide...

Arnaud



Mathilde
Le #1224139
Bonjour,
essaye ça

Sub Graph()

Dim Min, Max
Min = Sheets("synthèse").Range("F5")
Max = Sheets("synthèse").Range("F6")
With ActiveChart.Axes(xlValue)
.MinimumScale = Min
.MaximumScale = Max
End With
End Sub

-----Message d'origine-----
Bonjour,

Je voudrais choisir l'échelle d'un graph à partir de 2
valeurs situé dans 2 cases d'Excel ;

J'ai fait la macro suivante :

Worksheets("synthèse").ChartObjects("Graphique
1").Chart.Axes(xlValue).MinimumScale = Worksheets
("synthèse").[f5]

Worksheets("synthèse").ChartObjects("Graphique
1").Chart.Axes(xlValue).MaximumScale = Worksheets
("synthèse").[f6]

Elle ne fonctionne pas, je ne comprends pas pourquoi.
Merci de votre aide...

Arnaud

.



mousnynao
Le #1223950
Bonjour,

Avec ces quelques modif, chez moi ça fonctionne :)

Worksheets("synthèse").ChartObjects(1).Name = "Graphique 1"

Worksheets("synthèse").ChartObjects("Graphique
1").Chart.Axes(xlValue).MinimumScale = Worksheets
("synthèse").[F5].Value

Worksheets("synthèse").ChartObjects("Graphique
1").Chart.Axes(xlValue).MaximumScale = Worksheets
("synthèse").[F6].Value

ou encore

Worksheets("synthèse").ChartObjects(1).Chart.Axes
(xlValue).MinimumScale = Worksheets
("synthèse").[F5].Value

Worksheets("synthèse").ChartObjects(1).Chart.Axes
(xlValue).MaximumScale = Worksheets
("synthèse").[F6].Value

mousnynao!

-----Message d'origine-----
Bonjour,

Je voudrais choisir l'échelle d'un graph à partir de 2
valeurs situé dans 2 cases d'Excel ;

J'ai fait la macro suivante :

Worksheets("synthèse").ChartObjects("Graphique
1").Chart.Axes(xlValue).MinimumScale = Worksheets
("synthèse").[f5]

Worksheets("synthèse").ChartObjects("Graphique
1").Chart.Axes(xlValue).MaximumScale = Worksheets
("synthèse").[f6]

Elle ne fonctionne pas, je ne comprends pas pourquoi.
Merci de votre aide...

Arnaud

.



Publicité
Poster une réponse
Anonyme