Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Echelles auto de graphiques

Echelles auto de graphiques

2 réponses
Avatar
Bashauban
Bonjour,
J'ai plusieurs graphes devant rester alignés sur un document, comment peut
on obliger les échelles auto a se syncroniser?
J'ai essayé de mettre un graphe invisible identique avec les mêmes maxi,
cela marche dans 90% des cas mais pas toujours, une solution serait de lire
la valeur auto choisie sur un graphe pilote et l'imposer par macro aux
autres, comment lire cette valeur?
Merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Daniel
Bonjour.
Si j'ai bien compris, esssaie :

Sub test1()
Dim Minimum As Single, Maximum As Single
ActiveSheet.ChartObjects("Chart 1").Select
With ActiveChart.Axes(xlValue)
Maximum = .MaximumScale
Minimum = .MinimumScale
End With
For Each sh In ActiveSheet.ChartObjects
sh.Select
With ActiveChart.Axes(xlValue)
.MaximumScale = Maximum
.MinimumScale = Minimum
End With
Next
End Sub

Cordialement.
Daniel
"Bashauban" a écrit dans le message de
news:
Bonjour,
J'ai plusieurs graphes devant rester alignés sur un document, comment peut
on obliger les échelles auto a se syncroniser?
J'ai essayé de mettre un graphe invisible identique avec les mêmes maxi,
cela marche dans 90% des cas mais pas toujours, une solution serait de
lire
la valeur auto choisie sur un graphe pilote et l'imposer par macro aux
autres, comment lire cette valeur?
Merci d'avance


Avatar
Bashauban
Merci,

Effectivement cela fonctionne mais c'est un peu délicat, en particulier la
deuxième partie détruit l'autoscale du graphe de référence, qu'il faut donc
rétablir...
Deplus il doit "tourner" en permanence, donc je le lance par
Worksheet_Calculate, ce qui alourdi mes calculs déja passablement copieux,
Mais j'ai de quoi bidouiller
Cordialement
Jean-Claude


Bonjour.
Si j'ai bien compris, esssaie :

Sub test1()
Dim Minimum As Single, Maximum As Single
ActiveSheet.ChartObjects("Chart 1").Select
With ActiveChart.Axes(xlValue)
Maximum = .MaximumScale
Minimum = .MinimumScale
End With
For Each sh In ActiveSheet.ChartObjects
sh.Select
With ActiveChart.Axes(xlValue)
.MaximumScale = Maximum
.MinimumScale = Minimum
End With
Next
End Sub

Cordialement.
Daniel
"Bashauban" a écrit dans le message de
news:
Bonjour,
J'ai plusieurs graphes devant rester alignés sur un document, comment peut
on obliger les échelles auto a se syncroniser?
J'ai essayé de mettre un graphe invisible identique avec les mêmes maxi,
cela marche dans 90% des cas mais pas toujours, une solution serait de
lire
la valeur auto choisie sur un graphe pilote et l'imposer par macro aux
autres, comment lire cette valeur?
Merci d'avance