Addition dans Textbox à partir de Listbox

[karinette]

Re bonjour le forum ...
Pour finaliser mon fichier, j'ai à nouveau besoin de vos connaissances ...

J'ai un USF avec un textbox1 qui m'affiche une date (exple : 12/02/2010 21:00)
PS : encore merci au forum pour mon soucis de format ...

J'ai une Listbox1 qui me charge des temps :
00:00
00:30
01:00
01:45
02:20
Comment, lorsque je selectionne une valeur dans la listbox, elle s'ajoute dans le textbox1 ??
Exple : Textbox1 = 12/02/2010 21:00
Valeur choisie dans Listbox1 : 02:20

Valeur Textbox1 = 12/02/2010 23:20

Merci d'avance ...

 

[job75]

Re : Addition dans Textbox à partir de Listbox

Rebonjour karinette,

Ce code :

On Error Resume Next 'si la TextBox ne contient pas une date valide
TextBox1 = Format(CDate(TextBox1) + CDate(ListBox1), "dd/mm/yyyy hh:mm")

Normalement le 2ème CDate n'est pas nécessaire.

A+

 

[karinette]

Re : Addition dans Textbox à partir de Listbox


Merci beaucoup job75, c'est parfait !!!
Bravo ...