Calcul de date
Bonjour tout le monde
Voila je revient vers vous pour un problème de date dans un Userform
j'ai un textbox1 ou l'utilisateur va entrer une date et je voudrais que dans le textbox2 il y est PLUS 4 ans .
EX: textbox1 : 01/12/2000 dans la textbox2 :01/12/2004.
Merci de votre aide.
Bonjour,
regarde peut être ceci :
Dim d As Date
If Not IsDate(TextBox1) Then Exit Sub
d = CDate(TextBox1)
TextBox2 = DateSerial(Year(d) + 4, Month(d), Day(d))bonne journée
@+
Bonjour,
A tester:
TextBox2.Value=DateAdd("yyyy",4,TextBox1.Value)Merci a tout deux mais je le mets ou ?
Je débute un peu en VBA
Re,
tu peux le placer dans le module de l'userform, événement "exit" du textbox1 :
Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim d As Date
If Not IsDate(TextBox1) Then Exit Sub
d = CDate(TextBox1)
TextBox2 = DateSerial(Year(d) + 4, Month(d), Day(d))
End Sub