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 😱
