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
 

herve62

XLDnaute Barbatruc
Supporter XLD
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:

Statistiques des forums

Discussions
311 720
Messages
2 081 885
Membres
101 830
dernier inscrit
sonia poulaert