XL 2010 Mise en forme de l'axe d'un graphique

demonsares

XLDnaute Junior
Bonjour à toutes, à tous et le forum,

Je suis en train de réaliser une macro. Actuellement tout ce passe très bien.
Mais j'ai un soucis, je dois réaliser des graphiques via une macro. Cela fonctionne.
Mais je souhaite ajuster les valeurs minimale et maximale de l'axe des X.
Pour cela j'ai une macro :
Code:
Sheets("Données ciblées").Select

Lig2 = 1
While Cells(Lig2, 1).Value <> ""
    NumLig2 = NumLig2 + 1
    Lig2 = Lig2 + 1
Wend

Sheets("Graphique ciblé " & i).Select

    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).MinimumScale = Sheets("Données ciblées").range("E2").Value
    ActiveChart.Axes(xlCategory).MaximumScale = Sheets("Données ciblées").range("E479").Value

Lorsque je place E479, mes 7 graphiques sont bien réajustés par rapport à la valeur en E479.
Mais cette ligne peut varier. J'ai donc écrit le programme suivant :

Code:
Sheets("Données ciblées").Select

Lig2 = 1
While Cells(Lig2, 1).Value <> ""
    NumLig2 = NumLig2 + 1
    Lig2 = Lig2 + 1
Wend

Sheets("Graphique ciblé " & i).Select

    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).MinimumScale = Sheets("Données ciblées").range("E2").Value
    ActiveChart.Axes(xlCategory).MaximumScale = Sheets("Données ciblées").Cells(NumLig2,5).Value

Avec cette formulation
Code:
Cells(NumLig2,5).Value
qui doit être sous cette forme, j'arrive à modifier l'axe X de mon premier graphique, mais les N autres graphiques ne sont pas modifiés.
 

Discussions similaires

Réponses
3
Affichages
658

Statistiques des forums

Discussions
312 913
Messages
2 093 535
Membres
105 752
dernier inscrit
fred13340