Rapport de message :*
 

Re: légende axe abscisse

Titre du sujet : Re: légende axe abscisse
par djstroubi le 19/09/2009 15:41:32

Bonjour,

j'ai trouvé un programme mais il ne marche que pour un graphique qui est sur la même page que les données.

Je souhaiterais qu'il fonctionne sur plusieurs graphiques qui sont placée sur une page différentes de celles des données.

si quelqu'un pourrait m'aider 

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