probleme solution de Didier

[fred]

bonjour a tous

j'avais demandé de l'aide sur un problème d'échelle dynamique et Didier m'a donné une solution mais le code se bloque à un endroit et indique une erreur, c'est peut etre une erreur de synthaxe car je suis sur XP.

es ce que didier ou quelqu'un d'autre pourrait m'aider

merci

voici le code de didier :

Sub Macro1()
Range("A2").End(xlDown).Select
last_val = ActiveCell.Value
Range("A2").Select

Range(Selection, Selection.End(xlDown)).Select ' c'est icic qu'il y a un probleme"

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

 

[Yeahou]

Bonjour Fred, le forum

Je viens de répondre à un problème de ce type, cela va peut être t'aider.

Cordialement, A+

<http://www.excel-downloads.com/html/French/forum/messages/1_122989_122989.htm>

 

[fred]

ca marche toujours pas...

je vais jamais m'en sortir...