Augmenter la date dans un textbox en cliquant sur toupie

bonjour,

je voulais que si je clique sur spinup d'une toupie la valeur de texbox "date" augmente de 1 jour

Private Sub SpinButton1_SpinUp()
'On Error Resume Next
Dim madate As Date
madate = Me.TextBox6.Value
Me.TextBox6.Value = DateAdd("d", 1, "madate")
End Sub

ce code signale erreure d'exécution '13' incompatibilité de type.

je serait tres ravi d'une solution à ce problème.

Merci d'avance!

Bonjour

Ôtes les "" (guillemets) autour de madate

Private Sub SpinButton1_SpinUp()
'On Error Resume Next
Dim madate As Date
madate = Me.TextBox6.Value
Me.TextBox6.Value = DateAdd("d", 1, madate)
End Sub

bonjour,

grand merci à Banzai64, c'est résolu