Textbox date - 4jours

Bonjour a tous,

Je souhaiterai réaliser l'action suivante :

• dans une textbox1, je sélectionne une date via un calendar (déjà fait ! )
• dans une autre textbox2 une date apparaît moins 4 jours par rapport a la date de la textbox1.(la je sais pas ! )

Auriez-vous un code pour cela ?

Merci de votre aide

Fred

Bonjour Freddy

Tu es un véritable 'Serial Exceller' ...!!!

Tout dépend du format que tu as choisi pour ta TextBox1 ...

Tu peux tester un truc dans le genre suivant :

Private Sub TextBox1_Change()
 TextBox2.Value = Format(CDate(Me.TextBox1) - 4, "dd-mm-yyyy")
End Sub

En espèrant que cela t'aide ...

Bonjour James007

James, James, James...le monde ne te suffit pas !

Merci je teste cela mais je pense que cela ira !

Bonne journée...Mr Bond !

Freddy

Freddy .... You are most welcome ...

Bonjour Freddy

Il va de soi ... qui ... si tu rencontres un obstacle ... il ne faut pas hésiter à revenir sur ce fil ...

Salut James007,

Désolé de ma réponse tardif, mais j'était en mission....pour La Reine !

sinon, malheureusement cela ne fonctionne pas,

pour la textbox6 (date de départ), lorsque je choisi ma date (par calendrier), rien n’apparaît dans la textbox6

Private Sub TextBox8_Change()

TextBox8.Value = Format(CDate(Me.TextBox6) - 4, "dd/mm/yyyy")

End Sub

Je continue l'investigation !

Fred

Salut Fred ...

Il ne faut que tu te mélanges les pinceaux .... entre les 6 et les 8 ...

Si je suis ta logique ... il faudrait que dès que 6 est mis à jour (j'espère que cela fonctionne ...) ... 8 se mette à jour ... non ...???

Private Sub TextBox6_Change()
 TextBox8.Value = Format(CDate(Me.TextBox6) - 4, "dd/mm/yyyy")
End Sub

En espèrant que cela t'aide ...

En pleine cible !

Encore un peu d'entrainement pour avoir mes 00 !

Thx et porte toi bien

Fred

Ravi que cela fonctionne ....

Et un grand MERCI ... pour tes remerciements ...

Au Service de sa Majesté ...