modifier un graphique par du code vb sous excelRésolu

Question

Bonjour, 
J'aimerai modifier l'axe des ordonn&#233;es d'un graphique par une valeur qui se trouve dans une case d'une feuille  sous excel en utilisant vb.
Premere question : est ce possible ???
deuxieme question : Commenet peut on faire cela
derniere question : a l'aide, au secours, aider moi j'en peux plus !!!!!!!!!

MERCI

mrdep1978 · Accepted Answer

Si j'ai compris, tu veux modifier la valeur max de l'axe des ordonn&#233;es

Si c'est le cas :
Premi&#232;re r&#233;ponse : Oui
Deuxi&#232;me r&#233;ponse : 
Public Sub test()
' La version longue (mais qui permet d'avoir les propri&#233;t&#233;s en faisant Ctrl + Espace)
Dim l_ChartObject As ChartObject
Dim l_Axe As Axis
Set l_ChartObject = Worksheets("Feuil1").ChartObjects(1)
Set l_Axe = l_ChartObject.Chart.Axes(xlValue)
'La valeur max de l'ordonn&#233;e devient la valeur de la cellule B5
l_Axe.MaximumScale = Worksheets("Feuil1").Range("B5")
'La valeur min celle de B1
l_Axe.MinimumScale = Worksheets("Feuil1").Range("B1")
Set l_Axe = Nothing
Set l_ChartObject = Nothing

'La version courte
With Worksheets("Feuil1").ChartObjects(1).Chart.Axes(xlValue)
    .MaximumScale = Worksheets("Feuil1").Range("B5")
    .MinimumScale = Worksheets("Feuil1").Range("B1")
End With
End Sub

Troisi&#232;me r&#233;ponse : N'aies pas peur, tout va bien, nous sommes l&#224;

benbill · Answer

mrdep1978  je t'adore coment tu me sauve la vie !!!!
Merci Merci Merci Merci Merci
Depuis 2-3 heures je suis decu j'en pouvez plus !!!!!!
Encore merci !!!

Modifier un graphique par du code vb sous excel

2 réponses

Discussions similaires