echelle + graph

[fred]

Bonjour

je voudrai pouvoir faire une macro qui fasse un graph avec les valeurs de la colonne A, et avec une echelle qui s'arrete a la derniere valeur de la colonne

charts.add
activechart.setsourcedata source := sheets("calcul").range ("A2: jusqu'a la derniere valeur de la colonne"), ...

merci

fred

 

[didier]

Bonsoir,

tiens c'est un peu bourrin mais bon, cela devrai répondre à tes besoin:

Sub Macro1()
Range("A2").Select
Selection.End(xlDown).Select
last_val = ActiveCell.Value
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("calcul").Range("A2:A6"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveSheet.Shapes(1).IncrementLeft -82.5
ActiveSheet.Shapes(1).IncrementTop -165#
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScale = last_val
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub

 

[fred]

merci

je vai tester le code

c'est sympa

bonne journée

tino

 

[Val]

Bjour

Moi j'ai un peu le même problème c a d que les données de mon graphique changent régulièrement et dc l'échelle de mon graphe devrait pv s'adapter. J'avais pensé à faire une boucle pour trouver le maximum dans le tableau de mes données puis faire en sorte que mon graphe comprenne ce maximum. Mais je suis un peu perdu. Comment puis à l'aide boucle
If...
i=i+1
Loop
récupérer le maximum de MA base. Comment justement faut -il faire pour faire référence à la bonne base de données par exemple un tableau excel?


Merci de l'aide que vous pourrez m'apporter.
val