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

dindin

XLDnaute Occasionnel
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)
1630058058969.png

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
 

Pièces jointes

  • Format heure.xlsm
    20.7 KB · Affichages: 3

Jacky67

XLDnaute Barbatruc
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
 

Pièces jointes

  • Format heure.xlsm
    23 KB · Affichages: 6

Discussions similaires

Réponses
4
Affichages
345

Statistiques des forums

Discussions
298 001
Messages
1 965 031
Membres
200 810
dernier inscrit
lejibe