Calcul avec textbox date + saisi numérique
Bonjour,
Je travail à me perfectionner sur VBA, est dur dur, je cherche à faire un truc simple sur excel, mais sur VBA pas le même principe...
voilà, j'ai un Texbox ou j'utilise la fonction :
TextBox1.Value = Format(Now, "dddddd hh:mm:ss")
et une autre Textbox2 ou je fais une saisie numérique, exemple : 5
et, je voudrais afficher le résultat sur un textbox3 par exemple...
pour expliquer clairement, je veux calculer une date avec des heures + une valeur numérique un exemple :
textbox1 si le lundi 5 septembre 2016 14:12:25
textbox2 dans 5 jours
textbox3 cela correspond au Samedi 10 septembre 2016 14:12:25
le but et d'additionner textbox1 + textbox2 = textbox 3
Je travail à me perfectionner sur VBA, est dur dur, je cherche à faire un truc simple sur excel, mais sur VBA pas le même principe...
voilà, j'ai un Texbox ou j'utilise la fonction :
TextBox1.Value = Format(Now, "dddddd hh:mm:ss")
et une autre Textbox2 ou je fais une saisie numérique, exemple : 5
et, je voudrais afficher le résultat sur un textbox3 par exemple...
pour expliquer clairement, je veux calculer une date avec des heures + une valeur numérique un exemple :
textbox1 si le lundi 5 septembre 2016 14:12:25
textbox2 dans 5 jours
textbox3 cela correspond au Samedi 10 septembre 2016 14:12:25
le but et d'additionner textbox1 + textbox2 = textbox 3
1 réponse
-
ModérateurBonjour,
Tu peux faire via la fonction DateAdd
https://docs.microsoft.com/fr-fr/previous-versions/visualstudio/visual-studio-2008/hcxe65wz(v=vs.90)?redirectedfrom=MSDN
https://www.excelfunctions.net/vba-dateadd-function.html
exemple :oldDate = Cdate(textbox1.value) textbox3.value = DateAdd( "d", TextBox2.value, oldDate )
-
-
Modérateur@coupidonTout dépend comment tu as géré le déclenchement de ce calcul....
Soit tu as mis un bouton....
Soit tu veux le faire lorsque la valeur change.....
A toi de voir ! -
@jordane45j'avais pensé à un bouton type commandbutton, mais l'autre choix aussi me convenais.
par contre quand je fais ton code cela me fais une erreur sur le textbox1
comme je lui est mis comme valeur TextBox1.Value = Format(Now, "dddddd hh:mm:ss")
j'ai l'impression qu'il ne reconnais pas cette valeur là.
j'ai chercher sur le net mais je trouve pas la solution et pourquoi cela fonctionne pas ?
de plus cela n'affiche pas. Le résultat devrais s'afficher sur le textbox3 par exemple et cela ne le fais pas, sa me consterne
-
