Comment récupérer une date dans une texbox

chich

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

phlaurent55

XLDnaute Barbatruc
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
 

herve62

XLDnaute Barbatruc
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
 
Dernière édition:

Haut Bas