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

[dindin]

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 :

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]

Bonjour,
Un exemple avec

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]

Bonjour,
Un exemple avec

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