mise à jour échelle graphique

[julienha]

bonjour,
dans le fichier ci-joint, j'ai une macro qui me met à jour l'échelle du graphe, mais 2 problèmes:
-lorsque j'active la macro, il y a un décalage entre l'échelle de gauche et l'échelle de droite
-je n'arrive pas à créer le bouton correspondant à la macro

merci pour l'aide

 

[Fred0o]

Re : mise à jour échelle graphique

Bonjour julienha,

Heuu !

Ils sont où ton bouton et ta macro ??? Ton fichier contient juste le tableau + le graphique.

A+

 

[julienha]

Re : mise à jour échelle graphique

hello désolé mauvaise manip
voila le bon fichier

merci

 

[ROGER2327]

Re : mise à jour échelle graphique

Bonjour julienha

Pas certain d"avoir compris, mais à tout hasard :

[COLOR=DarkSlateGray][B]Private Sub CommandButton1_Click()
Dim Mini As Integer, Maxi As Integer
Dim Plage As String

With ActiveSheet
  Plage = "B6:B" & .Range("B6").End(xlDown).Row
  Mini = Application.Min(Range(Plage)) - 5
  Maxi = Application.Max(Range(Plage)) + 5
  With .ChartObjects(1).Chart.Axes(xlValue)
    .MinimumScale = Mini
    .MaximumScale = Maxi
    .MajorUnit = (Maxi - Mini) / 6 [COLOR=DarkOrange]'2[/COLOR]
  End With
  Plage = "C6:C" & .Range("C6").End(xlDown).Row
  Mini = Application.Min(Range(Plage)) - 5
  Maxi = Application.Max(Range(Plage)) + 5
  With .ChartObjects(1).Chart.Axes(xlValue, xlSecondary)
    .MinimumScale = Mini
    .MaximumScale = Maxi
    .MajorUnit = (Maxi - Mini) / 6 [COLOR=DarkOrange]'2[/COLOR]
  End With
End With
End Sub[/B][/COLOR]

Ce code est placé dans le module de la feuille Term Structure Single.
​

ROGER2327
#4569

Vendredi 20 As 138 (Saint Olibrius, augure, SQ)
2 Frimaire An CCXIX
2010-W47-1T15:21:05Z