userform / textbox avec date / faire une addition dans une autre textbox

Bonjour,
J'ai un userform avec plusieurs textbox, listbox..... pour remplir une base de données.

J'ai une textbox avec une date, sous ce format là :

Code:

---

1 2 3 4 5 6 7

Private Sub DATEANNONCE_Change() Dim Valeur As Byte DATEANNONCE.MaxLength = 10 'nb caracteres maxi dans textbox pour un format JJ/MM/AA Valeur = Len(DATEANNONCE) If Valeur = 2 Or Valeur = 5 Then DATEANNONCE = DATEANNONCE & "/" End Sub

---

et je souhaiterais faire une addition
DATEANNONCE + 4 jours

Dans une textbox RELANCE, qui est sous le mm format

Qui à une idée ?

Bonne après-midi

Seb

Comment feras tu si l'utilisateur saisira 29/02/2014?

Sinon,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub DATEANNONCE_Change() Dim Valeur As Byte   With Me.DATEANNONCE .MaxLength = 10 Valeur = Len(.Value)   If Valeur = 2 Or Valeur = 5 Then .Value = .Value & "/" ElseIf Valeur = .MaxLength Then Me.RELANCE = Format(CDate(.Value) + 4, "dd/mm/yyyy") End If End With End Sub

---

Mais ça reste un peu tordu comme approche.

Regarde les contrôles calendrier ou MonthView

PS. marque Résolu l'autre sujet.

...... Parfait .... Merci encore

Seb