Private Sub UserForm_Initialize()
With SpinButton1
.Min = 0 'Valeur mini
.Max = 30 'Valeur maxi
.Value = 5
.SmallChange = 1
End With
End Sub
Private Sub SpinButton1_Change()
TextBox1 = SpinButton1.Value
ActiveSheet.Shapes.Range(Array("obj")).Select
Selection.ShapeRange.IncrementTop 0.8823622047 * SpinButton1.Value
End Sub