ajouter 3 jours a une date selectionner

[angoul]

Bonjour sur un calendrier
j'aimerai ajouter 3 jours a la date du calendrier.
Comment faire cela?

Private Sub UserForm_Initialize()
Caption = StrConv(Format(Now, "mmmm dddd yyyy"), vbProperCase)

End Sub
Private Sub Calendar1_Click()
UserForm9.txtdatepubli.Value = Calendar1.Value: UserForm9.txtdatepubli.SetFocus
Unload Me
End Sub

Merci

 

[Pierrot93]

Re : ajouter 3 jours a une date selectionner

Bonjour,

peut être ainsi, enfin si j'ai bien compris :

UserForm9.txtdatepubli.Value = CDate(Calendar1.Value + 3)

bon après midi
@+

 

[Modeste geedee]

Re : ajouter 3 jours a une date selectionner

Bonsour®



simplement ? ...

Caption = StrConv(Format(Now +3, "mmmm dddd yyyy"), vbProperCase)

UserForm9.txtdatepubli.Value = 3 +Calendar1.Value: UserForm9.txtdatepubli.SetFocus

 

[angoul]

Re : ajouter 3 jours a une date selectionner

super merci encore