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 :
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 :
Avec cette formulation
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.
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