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
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