UserForm et operations sur dates ET heures

[paul87]

Bonjour à tous,
dans un UF, je souhaiterais pouvoir réaliser des opérations sur date et heures dans des TextBox...est-ce possible...?
du genre
TexBox1= dateheure de départ
TexBox2= dateheure de départ + 10 Heures
TexBox3= dateheure de départ -15 Heures
Ci joint mon fichier test...
si quelqu'unpouvait m'aiguiller..svp

 

[criscris11]

Re : UserForm et operations sur dates ET heures

Bonjour paul87, re le forum,
De mémoire, sur le site d'excelabo.net, il y un fichier qui correspond à ton souhait. Je vais regarder si je le trouve dans mon grenier d'Excel.
Sinon va faire un tour sur le site cité quelques lignes plus haut ou essaies de faire une recherche sur le forum, tu trouveras peut-être.
Bonne recherche et à bientôt si je remets la main sur le fichier en question.

 

[paul87]

Re : UserForm et operations sur dates ET heures

re-bonjour et merci criscris11
je suis allé voir sur le site d'excelabo.net mais je n'y ai pas trouvé de renseignements ...

 

[Spitnolan08]

Re : UserForm et operations sur dates ET heures

Bonjour paul87, CrisCris,

Dans ton fichier, il n'y a pas grand chose...

Un exemple à mettre tel quel dans ton UF puis à adapter.

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Now, "hh:mm:ss")
'1 heure = 1/24
'1 minute = 1/(24*60)=1/1440
'1 seconde = 1/(24*60*60)=1/86400)
TextBox2.Value = CDate(TextBox1) + 10 * (1 / 24)
TextBox3.value = CDate(TextBox1) - 15 * (1 / 24)
End Sub

Cordialement

 

[Pierrot93]

Re : UserForm et operations sur dates ET heures

Bonjour Paul, Christophe, Spitnolan

une autre solution en utilisant la fonction "DateAdd" :

TextBox2.Value = DateAdd("h", 10, Now)
TextBox3.Value = DateAdd("h", -15, Now)

bonne soirée
@+

 

[criscris11]

Re : UserForm et operations sur dates ET heures

Re paul87, bonjour Spitnolan et Pierrot,
J'ai retrouvé le fichier en question mais il fait 276 ko même compressé.
Je vais le joindre sur Cjoint.com et je vous envoie le lien tout à l'heure.
Bonne fin d'après-midi.


http://cjoint.com/?iErOhkvOzo

 

[paul87]

Re : UserForm et operations sur dates ET heures

Re...
un tout grand merci a tous,...ça marche.....!!
juste 2 questions...svp
*dans les texbox2 et texbox3 au moment de l'affichage des résultats comment faire pour avoir un format juste avec hh:mm et pas les secondes..
*est-il possible dans le texbox1 d'avoir la date complétée par un calendrier..comme c'est le cas actuellement...ET les heures minutes complétées par un spinbutton...je n'en ai jamais utilisé...et ne connais pas le code qui s'y rapporte...
Merci encore pour vos aides...
Voir PJ

 

[paul87]

Re : UserForm et operations sur dates ET heures

Bonjour...
Personne n'aurait une petite idée..?
SVP

 

[Pierrot93]

Re : UserForm et operations sur dates ET heures

Bonjour Paul

pour ton problème de format, essaye comme ci dessous :

TextBox1.Value = Format(DateAdd("h", 10, Now), "dd/mm/yyyy hh:nn")

bon après midi
@+

 

[paul87]

Re : UserForm et operations sur dates ET heures

bonjour et merci...c'est ok...ça marche..
et pour l'utilisation du spinbutton.....?
un peu d'aide...svp