Calcul avec textbox date + saisi numérique

Fermé

coupidon Messages postés 98 Date d'inscription mardi 3 janvier 2006 Statut Membre Dernière intervention 23 novembre 2016 - 5 sept. 2016 à 14:18
coupidon Messages postés 98 Date d'inscription mardi 3 janvier 2006 Statut Membre Dernière intervention 23 novembre 2016 - 6 sept. 2016 à 08:10

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

A voir également:

Calcul avec textbox date + saisi numérique
Calcul moyenne excel - Guide
Pavé numérique bloqué - Guide
Clavier numérique bloqué - Guide
Jonas tape 125 sur le pavé numérique de son clavier, mais rien n’apparaît à l’écran. sur quelle touche doit-il appuyer pour que le pavé numérique fonctionne ? - Forum Windows

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38300 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 novembre 2024 4 704
5 sept. 2016 à 14:56

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 )

coupidon Messages postés 98 Date d'inscription mardi 3 janvier 2006 Statut Membre Dernière intervention 23 novembre 2016 1
5 sept. 2016 à 15:07

bonjour jordane45

tu le met où du coup cette ligne de code,
dans textbox1.value()
dans textbox1.change()

je comprend pas....

jordane45 Messages postés 38300 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 novembre 2024 4 704 > coupidon Messages postés 98 Date d'inscription mardi 3 janvier 2006 Statut Membre Dernière intervention 23 novembre 2016
5 sept. 2016 à 16:59

Tout 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 !

coupidon Messages postés 98 Date d'inscription mardi 3 janvier 2006 Statut Membre Dernière intervention 23 novembre 2016 1 > jordane45 Messages postés 38300 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 novembre 2024
6 sept. 2016 à 08:10

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

Discussions similaires

Que veut-dire valeur numérique

je cherche la date et le lieu de naissance d une personne

Problème Whatsapp - "La date est incorrecte"

[VBA] format de date dans textbox

Connaitre la date d'une photo.