[Résolu] Rentrer des heures dans une textbox

Lone-wolf · 18 Avril 2013

Bonjour à tous,

comment entrer des heures dans une textbox vide comme l'exemple suivant.

Je rentre 10 ou 10.15 et après insertion la textbox doit afficher 10:00 ou 10:15.
Pour le format pas de souci, je l'ai déjà.

Code:

Private Sub Heure_AfterUpdate()
Me.Heure.Value = Format(Me.Heure.Value, "hh:mm")
End Sub

Merci d'avance

A+

Modeste geedee · 18 Avril 2013

Re : Rentrer des heures dans une textbox

Bonsour®

Lone-wolf à dit:
comment entrer des heures dans une textbox vide comme l'exemple suivant.
Je rentre 10 ou 10.15 et après insertion la textbox doit afficher 10:00 ou 10:15.
Pour le format pas de souci, je l'ai déjà. Code VBA:
Private Sub Heure_AfterUpdate()
Me.Heure.Value = Format(Me.Heure.Value, "hh:mm")
End Sub

Pourquoi ne pas utiliser un scrollbar ??

VB:

Sub Scrollbar_Heure_QuandChangement()
' scroll bar value 0 à 1440
' small change : 1
' large change : 30
Me.heure = Format(Scrollbar_Heure.Value * TimeValue("0:01"), "hh:mm")
End Sub

laetitia90 · 18 Avril 2013

Re : Rentrer des heures dans une textbox

bonjour Lone-wolf,Modeste geedee
"brut" on peut tenter

exemple

Code:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 If Len(TextBox1) = 2 Then TextBox1 = TextBox1 & ":00": Exit Sub
 TextBox1 = Format(TextBox1, "hh:mm")
End Sub

Lone-wolf · 18 Avril 2013

Re : Rentrer des heures dans une textbox

Bonjour laetitia, Modeste,

au faite, je me suis rappelé de Replace et donc...

Code:

Private Sub Heure_Change()
  Me.Heure.Text = Replace(Me.Heure.Text, ".", ":")
End Sub

Private Sub UserForm_Initialize()
Dim rechnom As Range, lig As Long

Me.Objet.Value = ActiveCell.Value
With Sheets("Commentaires").Columns(1)
    Set rechnom = .Cells.Find(Me.Objet.Value)
End With
    lig = rechnom.Row
With Sheets("Commentaires")
    Me.Objet.Value = .Cells(lig, 1)
    Me.Heure.Text = .Cells(lig, 2)
End With

'ICI J'AI COUPÉ COURT! ;)

et même avec le code de laetitia, j'ai toujours 0,596000; pourtant j'ai mis au format hh:mm les cellules.

A+

Modeste geedee · 18 Avril 2013

Re : Rentrer des heures dans une textbox

Bonsour®

With Sheets("Commentaires")
Me.Objet.Value = .Cells(lig, 1)
Me.Heure.Text = .Cells(lig, 2).Text
End With

klin89 · 18 Avril 2013

Re : Rentrer des heures dans une textbox

Bonjour le forum,

Un classique signé myDearFriend!
https://www.excel-downloads.com/threads/formatage-de-txtbox-en-heure.46342/

Klin89

Lone-wolf · 18 Avril 2013

Re : Rentrer des heures dans une textbox

Re Modeste, bonjour klin89

@ Modeste : cette fois c'est OK, merci chef.

@ klin89 : j'ai regardé le fichier de myDearFriend, mais il utilise une fonction personnalisée.

A+

[Résolu] Rentrer des heures dans une textbox

Lone-wolf

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

klin89

XLDnaute Accro

Lone-wolf

XLDnaute Barbatruc

Discussions similaires