Formatage Textbox

[paul87]

Bonjour à tous,
Bonjour le Forum
Dans un UserForm, j'ai une TextBox dont le format est en hh:mm

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

If TextBox16(Format(MonNbreHeure) & ":" & Format(MonNbreMinute, "00")) < "06:00" Then MsgBox ("bla bla..")

Merci par avance

 

[ralph45]

Re : Formatage Textbox

bonjour paul87,

Dans ton code, tu ne fais pas référence à la valeur ou texte de ton textbox16...
Non testé, mais essaye avec :

If TextBox16(Format(MonNbreHeure) & ":" & Format(MonNbreMinute, "00")).Value

ou

If TextBox16(Format(MonNbreHeure) & ":" & Format(MonNbreMinute, "00")).Text

A+

 

[paul87]

Re : Formatage Textbox

Bonjour ralph45,
j'ai testé les 2

If TextBox16(Format(MonNbreHeure) & ":" & Format(MonNbreMinute, "00")).Value < "06:00" Then MsgBox ("bla bla..")

et

If TextBox16(Format(MonNbreHeure) & ":" & Format(MonNbreMinute, "00")).text < "06:00" Then MsgBox ("bla bla..")

J'ai toujours la même erreur "incompatibilité de type"

 

[paul87]

Re : Formatage Textbox

Si quelqu'un avait une idée ou soluce pour mon pb...
Merci +++ par avance

 

[Modeste geedee]

Re : Formatage Textbox

Bonsour®

If cDbl(TextBox16)<0.25 Then MsgBox ("bla bla..")

 

[paul87]

Re : Formatage Textbox

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

@+

 

[Modeste geedee]

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 ???

😎en terme de cohérence(*) alors il eut mieux valut écrire :

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]

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

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

Je souhaite faire afficher le résultat dans un Label DateFin

Me.DateFin = Me.Lbl_Recent..........?

Je n'y arrive pas non plus !!

 

[Modeste geedee]

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

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

Je souhaite faire afficher le résultat dans un Label DateFin

Me.DateFin = Me.Lbl_Recent..........?

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

 

[paul87]

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]

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

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

 

[paul87]

Re : Formatage Textbox

Merci ++ pour ton aide !!
A bientôt
Paul