XL 2016 beug-Format heure dans textbox entre 12:00 et 00:00

dindin · 27 Août 2021

Bonjour,
J'ai voulu afficher deux horaires dans 2 textbox :
12:00 et 00:00
le souci ce que j'ai autre chose qui s'affiche à la place: 00:00 (minuit à la place de midi)

Voici le code :

VB:

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "hh:mm")
End Sub

Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2.Value, "hh:mm")
End Sub

Private Sub UserForm_Initialize()
TextBox1 = Feuil1.Range("A1").Value
TextBox2 = Feuil1.Range("A2").Value
End Sub

SVP Comment peut-on remédier à ce beug?
ci-joint le fichier type
Merci pour votre aide

Jacky67 · 27 Août 2021

Bonjour,
Un exemple avec

VB:

Private Sub UserForm_Initialize()
TextBox1 = Format(Feuil1.Range("A1").Value, "hh:mm")
TextBox2 = Format(Feuil1.Range("A2").Value, "hh:mm")
End Sub

Sans contrôle de la validité horaire

dindin · 27 Août 2021

Jacky67 à dit:
Bonjour,
Un exemple avec

VB:

Private Sub UserForm_Initialize() TextBox1 = Format(Feuil1.Range("A1").Value, "hh:mm") TextBox2 = Format(Feuil1.Range("A2").Value, "hh:mm") End Sub

Sans contrôle de la validité horaire

un grand merci

XL 2016 beug-Format heure dans textbox entre 12:00 et 00:00

dindin

XLDnaute Occasionnel

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

dindin

XLDnaute Occasionnel

Discussions similaires