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

[demonsares]

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 :

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 :

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

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.

 

[demonsares]

UP

 

[demonsares]

UP

 

[mutzik]

bonjour

tu penses bien qu'un fichier joint nous aiderait beaucoup et surtout nous éviterait d'en recréer un qui ne correspondra pas du tout à ce que tu as déja

Aide-toi et XLD t'aidera ...

 

[demonsares]

Voila mon fichier EXCEL, mais il est surchargé, voila pourquoi j'avais mis qu'une partie du code :
http://www.cjoint.com/c/FLvpgLgTj8p