Mise à jour auto d'un graphique

[marcki]

Bonjour,

J'ai un graphique avec un histograme + une courbe objectif. Je voudrais que l'échelle se mette à jour automatiquement.
Avec le programme ci-dessous :
Sub Echelle2()
With ActiveSheet.ChartObjects("Graphique 1").Chart.Axes(xlValue)
.MinimumScale = Application.Min(Range("C3:F3")) 'axe objectif
.MaximumScale = Application.Max(Range("C3:F3"))
End With
End Sub
j'ai une série qui se met à jour.
1- comment faire pour que l'échelle de l'autre série s'adapte aussi.
2 - ajouter une marge de 10% à chaque maxi mini

Merci pour votre aide

 

[ROGER2327]

Re : Mise à jour auto d'un graphique

Bonsoir marcki

Comme ça, peut-être ?

Sub Echelle2()
   With ActiveSheet.ChartObjects("Graphique 1").Chart.Axes(xlValue)
      .MinimumScale = Application.Min(Range("C3:F3"), Range("C5:F5")) * 0.9
      .MaximumScale = Application.Max(Range("C3:F3"), Range("C5:F5")) * 1.1
   End With
End Sub

ROGER2327