légende axe abscisse

job75 à dit:

Bonjour djstroubi,

On suppose :

- que le graphique se nomme "Graphique 1" et qu'il se trouve dans la feuille de calcul,

- que le minimum de l'axe des abscisses (une heure) est entré en cellule D2.

La macro à placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" And IsDate(Target.Text) Then 'adapter au besoin
  ActiveSheet.ChartObjects("Graphique 1").Chart.Axes(xlCategory).MinimumScale = Target
End If
End Sub

Edit : j'ai testé sur un graphique en Nuage de points

A+

Cliquez pour agrandir...

job75 à dit:

Re,

Bon, il y avait juste 2 modifications à faire pour adapter la macro :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" And IsDate(Target.Text) Then 'adapter au besoin
  ActiveSheet.ChartObjects("[COLOR="Red"]Graphique 2[/COLOR]").Chart.Axes([COLOR="Red"]xlValue[/COLOR]).MinimumScale = Target
End If
End Sub

A+

Cliquez pour agrandir...