Paramètrage de champs

[lolo_bob2]

Bonjour à tous,

Voila sur mon userform j'ai un champ appelé "validé conforme le" où j'inscris une date, sur cette userform j'ai un autre champ appelé "prochain contrôle le" et là je dois ajouter un an par rapport à la date que j'ai inscrit dans le champs "validé conforme".

Comment puis faire pour ajouter un an à ma première date ?

Merci de votre aide

A++

 

[Jacques87]

Re : Paramètrage de champs

Bonjour

Voici une méthode

anciennedate = Me.TextBox1.Value
nouvelledate = DateAdd("yyyy",1,anciennedate)
TextBox.Value = nouvelledate

à adapter à tes besoins

Bon courage

 

[lolo_bob2]

Re : Paramètrage de champs

Merci beaucoup

Je vais essayer tt de suite

A++

Lolo

 

[lolo_bob2]

Re : Paramètrage de champs

Salut

j'ai essayé comme ça mais ca fonctionne pas :

Mes champs sont les suivants daterecep et dateexpe
Je voudrais quand je met une date dans daterecep la date s'inscrive dans dateexpe avec un an de plus

je fais donc cela :

Private Sub dateexpe_Change()
datexpe.Text = Format(daterecep.Text, "dd/mm/") & Year(daterecep.Text) + 1
End Sub

Rien à faire rien ne s'affiche dans mon champ dateexpe....

Pouvez vous m'aider

Merci beaucoup

A++

 

[Jacques87]

Re : Paramètrage de champs

Re,

Je ne t'ai pas dit cela
Reprenons

Dans ton UserForm tu as 2 textbox :
1) "validé conforme le" supposons que ce soit le TextBox1
2) "validé conforme" supposons que ce soit l TextBox2

alors le code sera :

anciennedate = Me.TextBox1.Value
Me.Textox2.Value = DateAdd("yyyy", 1, anciennedate)

ou plus rapide

Me.TextBox2.Value = Date("yyyy", 1, Me.TextBox1.Value)

Cette ligne de code est à mettre (par exemple) dans la procédure évenementielle :
Private Sub TextBox1_Change()

Bonsoir

 

[lolo_bob2]

Re : Paramètrage de champs

Salut

Merci beaucoup ca fonctionne parfaitement

A+