<longre@wanadoo.fr>De: Laurent longre 
Objet: Re: Axe à abcisse automatique.
Date : lundi 13 septembre 1999 23:43

Alan a &eacute;crit :
> 
> 1.comment faire dans la macro que tu propose pour d&eacute;finir la valeur max.  et
> min.de l'axe Y en même temps que "crosse at" .

Par exemple, si ces valeurs sont respectivement en A10 et A12 :

Private Sub Worksheet_Change(ByVal Target As Excel.range)
  with ChartObjects(1).Chart.Axes(xlValue)
    Select Case Target.Address
      Case "$A$8"
        .CrossesAt = [A8]
      Case "$A$10"
        .MinimumScale = [A10]
      Case "$A$12"
        .MaximumScale = [A12]
    End Select
  End with
End Sub

> 2.comment fais tu pour que la macro s'ex&eacute;cute automatiquement.

C'est une macro &eacute;v&eacute;nementielle. Comme son nom l'indique (?) elle se
d&eacute;clenche par nature dès qu'une nouvelle valeur est saisie quelque part
dans la feuille de calcul. Si tu veux en savoir plus, regarde
"&eacute;v&eacute;nements" dans l'aide de VBA.

Laurent