Paramètrage de champs

Jacques87

XLDnaute Accro

• 10 Décembre 2006

• #2

Re : Paramètrage de champs

Bonjour

Voici une méthode

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

Cliquez pour agrandir...

à adapter à tes besoins

Bon courage

 

Vote positif 0 Vote négatif

L

lolo_bob2

Guest

• 10 Décembre 2006

• #3

Re : Paramètrage de champs

Merci beaucoup

Je vais essayer tt de suite

A++

Lolo

 

Vote positif 0 Vote négatif

L

lolo_bob2

Guest

• 10 Décembre 2006

• #4

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++

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 10 Décembre 2006

• #5

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)

Cliquez pour agrandir...

ou plus rapide

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

Cliquez pour agrandir...

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

Bonsoir

 

Vote positif 0 Vote négatif

L

lolo_bob2

Guest

• 10 Décembre 2006

• #6

Re : Paramètrage de champs

Salut

Merci beaucoup ca fonctionne parfaitement

A+

 

Vote positif 0 Vote négatif