[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] SpinButton1_SpinDown()
[COLOR=NAVY]With[/COLOR] TextBox1
.Value = [COLOR=NAVY]CDate[/COLOR](.Value) - 1
[COLOR=NAVY]End With
End Sub[/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] SpinButton1_SpinUp()
[COLOR=NAVY]With[/COLOR] TextBox1
.Value = [COLOR=NAVY]CDate[/COLOR](.Value) + 1
[COLOR=NAVY]End With
End Sub[/COLOR][/SIZE]