Private Sub CommandButton1_Click()
Dim Mini As Integer, Maxi As Integer
Dim Plage As String
With ActiveSheet
Plage = "B3:B" & .Range("B3").End(xlDown).Row
Mini = Application.Min(Range(Plage)) - 1
Maxi = Application.Max(Range(Plage)) + 1
With .ChartObjects(1).Chart.Axes(xlValue)
.MinimumScale = Mini
.MaximumScale = Maxi
End With
With .ChartObjects(1).Chart.Axes(xlValue, xlSecondary)
.MinimumScale = mimi
.MaximumScale = Maxi
End With
End With
End Sub
merci mais j'aimerais que cette macro s'applique a l'echelle de droite et de gauche. pouvez vous me monter un exemple de votre macro surle fichier
merci bcp
Plage = "[COLOR="Red"][B]C[/B][/COLOR]3:[COLOR="Red"][B]C[/B][/COLOR]" & .Range("[COLOR="Red"][B]C[/B][/COLOR]3").End(xlDown).Row