calculer une date J+15

[cpeens]

bonjour à tous je recherche depuis ce matin comment ajouter 15 jour à une date pour qu'il s'affiche dans une textbox

dans mon USF j'ai textbox1 qui affiche automatiquement la date du jour je souhaite que si quelqu'un saissie manuelement une date en textbox1 en textbox 2 la date saissies en textbox un s'incremente de 15 jour.

exemple:15/12/2011 (en textbox1) en textbox2 il devras apparaitre (30/11/2011)

comment puis faire je svp merci

 

[MJ13]

Re : calculer une date J+15

Bonjour cpeens

Pourrais-tu envoyer ton fichier sans données confidentielles 🙂.

 

[david84]

Re : calculer une date J+15

Bonjour, Michel,
en VBA, possibilité d'utiliser la fonction DateAdd pour arriver à tes fins.
Sa syntaxe :

DateAdd(interval, number, date)

voir l'aide Excel (touche F1) pour les explications en détail.
A+

 

[cpeens]

Re : calculer une date J+15

Bonjour M13 et merci pour ton aide ci joint un fichier

j'aimerais bien également savoir calculer le nombre de jour exemple entre 10/11/2011 et 23/11/2012 par exemple si vous pouvez m'expliquer en terme VBA comment faire merci d'avance

 

[Pierrot93]

Re : calculer une date J+15

Bonjour à tous;

regarde ceci, à adapter, si cela peut t'aider à avancer :

If IsDate(TextBox1) Then TextBox1 = CDate(TextBox1) + 15

bonne journée
@+

 

[MJ13]

Re : calculer une date J+15

Re, Bonjour David, Pierrot

Tu peux tester ce code:

Private Sub TextBox1_Change()
Dim Valeur As Byte
TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox1)
If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
TextBox2 = CDate(TextBox1) + 15
End Sub
'Private Sub TextBox2_Change()
'Dim Valeur As Byte
'TextBox2.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
'Valeur = Len(TextBox2)
'If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox2 & "/"
'End Sub
Private Sub UserForm_Initialize()
TextBox1 = Date
End Sub

PS: Eh, Pierrot 🙂, même idée.

 

[cpeens]

Re : calculer une date J+15

re bonjour M13 et bonjour pierrot93 merci pour votre solution qui solutionne une partis de mon probleme

pour la seconde question que je me posais je me demandais si dans textbox3 je pouvais inserer le résultat de différence de jour entre deux date.

exemple 15/11/2011 - 20/11/2011 = 5

merci d'avance de tous l'aide déja apporter à mon projet

 

[cpeens]

Re : calculer une date J+15

re
je crois j'ai trouver

If IsDate(Textbox2) Then Textbox3= (CDate(Textbox1)) - (CDate(Textbox2))
merci à vous deux à bientot

 

[MJ13]

Re : calculer une date J+15

Re

J'aurais bien vu cela, à adapter à ton contexte, (oups, pas rafraîchi) 😱.

Bravo, tu commences à comprendre 🙂.

TextBox3 = CDate("20/11/2011") - CDate("15/11/2011")

 

[Pierrot93]

Re : calculer une date J+15

Re,

préférable de tester les 2 "textbox" pour éviter le renvoie d'une erreur...

If IsDate(TextBox1) And IsDate(Textbox2) Then Textbox3 = CDate(TextBox1) - CDate(Textbox2)

bon après midi
@+

 

[creolia]

Re : calculer une date J+15

re bien vue pierrot93 et merci aussi a m13

je vais completer mon code comme ceci à trés bientot merci