Formatage Textbox

paul87

XLDnaute Impliqué
Bonjour à tous,
Bonjour le Forum
Dans un UserForm, j'ai une TextBox dont le format est en hh:mm
Code:
Me.TextBox16 = MonNbreHeure & ":" & Format(MonNbreMinute, "00")
Ceci fonctionne très bien avec un affichage 09:45 par exemple.
je souhaite réaliser un test sur la valeur de cette TextBox...je n'y arrive pas.!!! (si la valeur est inférieure à 06:00)
j'ai du mal avec la syntaxe ou sur le code lui même..!!!
Qui pourrait m'aider SVP

J'en suis là..mais ça ne marche pas
Code:
If TextBox16(Format(MonNbreHeure) & ":" & Format(MonNbreMinute, "00")) < "06:00" Then MsgBox ("bla bla..")

Merci par avance
 

paul87

XLDnaute Impliqué
Re : Formatage Textbox

Bonjour ralph45,
j'ai testé les 2
Code:
If TextBox16(Format(MonNbreHeure) & ":" & Format(MonNbreMinute, "00")).Value < "06:00" Then MsgBox ("bla bla..")
et
Code:
If TextBox16(Format(MonNbreHeure) & ":" & Format(MonNbreMinute, "00")).text < "06:00" Then MsgBox ("bla bla..")
J'ai toujours la même erreur "incompatibilité de type"
 

Modeste geedee

XLDnaute Barbatruc
Re : Formatage Textbox

Bonsour®
Grand MERCI +++ !! à toi (et à ceux qui ont suivi ce post !!)
j'ai juste remplacé cDbl par cDate....
et c'est nickel

@+

pourquoi ? cela ne marchait pas ???

:cool:en terme de cohérence(*) alors il eut mieux valut écrire :
VB:
If CDate(TextBox16) < Cdate("06:00") Then MsgBox ("bla bla..")

(*) comparaison de type à type
texte : selon la saisie, la comparaison ne marchera pas !
If TextBox1 < "6:00" Then MsgBox ("bla bla..")
If TextBox1 < "06:00" Then MsgBox ("bla bla..")



 

paul87

XLDnaute Impliqué
Re : Formatage Textbox

Ok..merci !!++
ça fonctionne !!!
OUP'S pas simple les formatage en date / heure....!!
A ce sujet j'ai une autre question..

j'ai besoin de rajouter 12heures au Label suivant

Code:
Me.Lbl_Recent = Format(MaDateMaxi4, "dd/mm/yyyy hh:nn")

Je souhaite faire afficher le résultat dans un Label DateFin
Code:
Me.DateFin = Me.Lbl_Recent..........?

Je n'y arrive pas non plus !!
 

Modeste geedee

XLDnaute Barbatruc
Re : Formatage Textbox

Ok..merci !!++
ça fonctionne !!!
OUP'S pas simple les formatage en date / heure....!!
A ce sujet j'ai une autre question..

j'ai besoin de rajouter 12heures au Label suivant

Code:
Me.Lbl_Recent = Format(MaDateMaxi4, "dd/mm/yyyy hh:mm")

Je souhaite faire afficher le résultat dans un Label DateFin
Code:
Me.DateFin = Me.Lbl_Recent..........?

VB:
Me.DateFin= Format(MaDateMaxi4 + .5 , "dd/mm/yyyy hh:mm")
 

paul87

XLDnaute Impliqué
Re : Formatage Textbox

Bonjour et Merci..+++
il me reste un dernier point avec ces "maudits" formats date/heure..!!!
j'ai besoin d'un Label qui m'afficherai le temps restant en HH/MM entre le moment ou on ouvre le UserForm (now) et le label DateFin..
et bien sur..!!
je sèche !!
 

Modeste geedee

XLDnaute Barbatruc
Re : Formatage Textbox

Bonsour®
Bonjour et Merci..+++
il me reste un dernier point avec ces "maudits" formats date/heure..!!!
j'ai besoin d'un Label qui m'afficherai le temps restant en HH/MM entre le moment ou on ouvre le UserForm (now) et le label DateFin..
et bien sur..!!
je sèche !!

VB:
Dim xx As Double
xx = Abs(Now - MaDateMaxi4 + .5)
Me.RemainTime= Int(xx / TimeValue("1:0")) & "h" & Format(xx, "mm:ss")

 

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG