Bonjour
1.
J'ai un graph dynamique de 3 colonnes , la premiere colonne "Time" je ne la veux pas representee graphiquement , mais je souhaite avoir les datas en bas de mon graph a la place de la serie 1 2 3 .. 7 8 9 10. donc je souhaite garder la serie1 et serie2 et avoir en bas les heures.
2.
ensuite je souhaite que mon l'echelle de mon graph s'ajuste automatiquement (vertical axis) en fontion du min et du max de la periode selectionnee en cellule K10.dans ce cas precis je souhaite que l'echelle de mon graph s'ajuste automatiquement en fonction des 10 dernieres data.
mais si cela est impossible alors je suis pret a saisir l'echelle max et l'echelle min pour que le graph s'auto ajuste , j'ai trouve d'ailleur ce code VBA sur site anglais:
Sub minMax()
Dim wks As Worksheet
Dim cht As ChartObject
Set wks = ThisWorkbook.Sheets("Sheet1")
Set cht = wks.ChartObjects("Chart 1")
cht.Chart.Axes(xlValue).MinimumScale = wks.Range("a1")
cht.Chart.Axes(xlValue).MaximumScale = wks.Range("b1")
End Sub
mais je suis incapable de m'en servir.......
si il y a des ames charitables , je serai vraiment ravi.
Merci d'avance
Landsat
1.
J'ai un graph dynamique de 3 colonnes , la premiere colonne "Time" je ne la veux pas representee graphiquement , mais je souhaite avoir les datas en bas de mon graph a la place de la serie 1 2 3 .. 7 8 9 10. donc je souhaite garder la serie1 et serie2 et avoir en bas les heures.
2.
ensuite je souhaite que mon l'echelle de mon graph s'ajuste automatiquement (vertical axis) en fontion du min et du max de la periode selectionnee en cellule K10.dans ce cas precis je souhaite que l'echelle de mon graph s'ajuste automatiquement en fonction des 10 dernieres data.
mais si cela est impossible alors je suis pret a saisir l'echelle max et l'echelle min pour que le graph s'auto ajuste , j'ai trouve d'ailleur ce code VBA sur site anglais:
Sub minMax()
Dim wks As Worksheet
Dim cht As ChartObject
Set wks = ThisWorkbook.Sheets("Sheet1")
Set cht = wks.ChartObjects("Chart 1")
cht.Chart.Axes(xlValue).MinimumScale = wks.Range("a1")
cht.Chart.Axes(xlValue).MaximumScale = wks.Range("b1")
End Sub
mais je suis incapable de m'en servir.......
si il y a des ames charitables , je serai vraiment ravi.
Merci d'avance
Landsat
