les heures avec vba

[David59]

bonjour le forum

je voudrais reprendre dans un textbox un info qui et en heures

actuellement je fais comment ça

dans VBA
textbox1.value = sheets("feuil1").range("a1")

dans excel
et dans la case A1 de la feuil1 j'ai mis 19:30

mais il affiche "0,8125" ??😕

david@+🙂

 

[Catrice]

Re : les heures avec vba

Bonjour,

0,8125 correxpond à 1/24 d'heure multiplié par 19.5 (19:30)
En fait le TextBox récupère l'heure non formatée

2 solutions ici :

Private Sub UserForm_Initialize()
TextBox1.Value = CDate(Sheets("feuil1").Range("a1"))
ou
TextBox1.Value = Format(Sheets("feuil1").Range("a1"), "hh:mm")
End Sub

 

[David59]

Re : les heures avec vba

bonjour Catrice

merci excellent

david @+