Gérer une date dans un formulaire

[Elise]

Bonjour,

voici ce que je veux faire :
au lancement de la macro, le system détermine la date du jour et l'inscrit dans un textbox.
Ensuite je veux pour voir modifier cette date pour revenir quelques jours avant ou après la date du jour.

Pour mon textbox, j'ai tapé ceci qui marche bien :
Private Sub UserForm_Initialize()
Dim today As Date
today = Date
TextBox25.Value = today
End Sub

Ensuite je suis coincé avec mon SpinButton car je ne sais pas comment faire augmenté ou décendre la date avec ce type de contrôle.

QQ peut soit me dire comment faire , soit me conseiller un exemple à télécharger.

Je vous remercie d'avance pour vos (nombreuses ) réponses.

 

[JPM]

Bonjour à tous

Je viens d'essayer ça et chez moi ça marche

Private Sub SpinButton1_SpinDown()
TextBox25.Value = CDate(TextBox25.Value) - 1
End Sub

Private Sub SpinButton1_SpinUp()
TextBox25.Value = CDate(TextBox25.Value) + 1
End Sub


A+ JPM