Date simple

[vekmort]

Bonjour,
Je me remets à VBA et je bloque sur un truc simple :
Comment faire pour que mon textbox (Date_Opération) qui représente une date fonctionne avec un spinbutton (spindown = date du jour -1 et spinup = date du jour +1) exemple :
Private Sub SpinButton1_SpinDown()
Date_Opération.Value = Date_Opération - 1
End Sub
Private Sub SpinButton1_SpinUp()
Date_Opération = Date_Opération + 1
End Sub

Merci d'avance,

 

[vekmort]

Re : Date simple

Ca y est j'ai trouvé !

Private Sub SpinButton1_SpinUp()
Date_Opération = DateValue(Date_Opération) + 1
End Sub
Private Sub UserForm_Initialize()
Date_Opération = Date
End Sub

Désolé, je croyais avoir déjà essayé ce code !

Joyeux Noël

 

[myDearFriend!]

Re : Date simple

Bonsoir vekmort,

Tu devrais pouvoir arriver au résultat escompté de façon simple comme ci-dessous (voir exemple joint) :

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

Cordialement,