Comment récupérer une date dans une texbox

[chich]

Bonjour a tous
Comment récupérer une date dans une texbox et lui ajouter 1 an dans une autre texbox ?
Merci d'avance

 

[kingfadhel]

Bonjour,
tout simplement:

TextBox1 = Date
TextBox2 = Date + 365

 

[phlaurent55]

Bonjour à tous,

Pour éviter les problémes liés aux années bisextiles:

TextBox2.Value = DateSerial(Year(TextBox1.Value) + 1, Month(TextBox1.Value), Day(TextBox1.Value))

à+
Philippe

 

[chich]

Bonjour à tous,

Pour éviter les problémes liés aux années bisextiles:

TextBox2.Value = DateSerial(Year(TextBox1.Value) + 1, Month(TextBox1.Value), Day(TextBox1.Value))

à+
Philippe

Re
merci pour votre interet sa ne fonctionne pas

 

[herve62]

Bonsoir
N'est ce pas plus simple comme ça ? :
TextBox1.Value = Date
TextBox2.Value = DateAdd("yyyy", 1, TextBox1.Value)
Je viens de tester ça marche : 27/11/2017 m'affiche dans la box 2 : 27/11/2018

Si l'on veut une date quelconque on peut faire aussi :
Private Sub TextBox1_AfterUpdate()
TextBox2.Value = DateAdd("yyyy", 1, TextBox1.Value)
End Sub
La date entée dans la box 1 est incrémentée de 1 an dans la 2

 

[phlaurent55]

Re
merci pour votre interet sa ne fonctionne pas

Désolé mais pour moi ça fonctionne correctement

À+
Philippe

 

[chich]

Désolé mais pour moi ça fonctionne correctement

À+
Philippe

Désole ca fonctionne bien c'est moi qui a mal recopier
merci a vous