Toupie/Spinbutton, date dans usf !

Bonsoir, bonsoir,

J'en profite pour remercier les personnes qui se creusent les méninges pour me répondre et qui me permettent de me dépasser dans excel

Je n'ai malheureusement pas trouvé la réponse à ma question malgré maintes recherches dans les tréfonds du forum

Alors j'ai un usf avec une toupie. Dans la txtbox il y a une date :31/01/2007 que j'ai initialisé. Je voudrais qu'en cliquant sur la toupie l'utilisateur puisse indiquer 28/02/2007 ou 31/12/2006...En sachant que j'aimerais comme date min le 31/12/2006. Est-ce utile d'indiquer une date max (j'avais prévu le 31/12/9999)

Voici mes codes qui ne fonctionnent pas(me donnent les mauvaises dates) Datem est le nom de la txtbox et augmentedate le nom du spinbutton :

Public vMinDate As Date
Public vMaxDate As Date
Public vDate As Date

Private Sub Userform_Initialize()
With Me.Datem
.Value = Format(vDate, "dd/mm/aaaa")
.Value = "31/01/2007"
End With
End Sub

Sub ErreurDatemax()
MsgBox "La date ne peut pas dépasser le " & vMaxDate, vbOKOnly + vbInformation, "Attention"
End Sub

Sub ErreurDatemin()
MsgBox "La date ne peut pas être antérieure au " & vMinDate, vbOKOnly + vbInformation, "Attention"
End Sub

Private Sub augmentedate_change()

vMinDate = "1 / 1 / 2007"
vMaxDate = "31 / 12 / 9999"
If vDate > vMaxDate Then
ErreurDatemax
Exit Sub
End If
If vDate < vMinDate Then
ErreurDatemin
Exit Sub
End If
End Sub

Private Sub augmentedate_SpinDown()
With Datem
.Value = vDate + DateSerial(0, 1, 0)
End With
End Sub

Private Sub augmentedate_SpinUp()
With Datem
.Value = vDate + (Month(vDate) - 1)
End With
End Sub

J'ai fait deux essais : 1 avec DateSerial et 1 avec Month

Je ne sais plus quoi faire