Calcul avec textbox date + saisi numérique
coupidon
Messages postés
98
Statut
Membre
-
coupidon Messages postés 98 Statut Membre -
coupidon Messages postés 98 Statut Membre -
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
-
Bonjour,
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 )
-
bonjour jordane45
tu le met où du coup cette ligne de code,
dans textbox1.value()
dans textbox1.change()
je comprend pas....- j'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
-
