Bien sur, c'est posssible... et il me semble que tu as déjà fait le plus gros du boulot.
Pour insérer un spinbutton, j'imagine que tu as mis un :
Private Worksheets_....()
...
activesheet.oleobjects.add("forms.spinbutton.1",left=..., _
top=...,width=...,height=...).select
...
end sub
Après ca, tu insères ton code :
Private Sub SpinButton1_SpinUp()
If Feuil6.TGLretrait.Value = True Then
If Sheets("Stock" ).Cells(9, 8).Value < Sheets("Stock" ).Cells(9, 7).Value Then
Sheets("Stock" ).Cells(9, 8).Value = Sheets("Stock" ).Cells(9, 8).Value + 1
End If
Else
Sheets("Stock" ).Cells(9, 8).Value = Sheets("Stock" ).Cells(9, 8).Value + 1
End If
End Sub
Et ca devrait fonctionner.