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:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas