Discussion :

[retraite83]

Bonjour

je voudrai formater une TextBox avec un format hh:mm

en clair si l'utilisateur tape 5:00 ou 12:00 je veux afficher 5:00 ou 12:00

avec le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
            UserForm10.Controls("TextBox" & i).Value = serv.Cells(8, pHor) ' Horaire
            UserForm10.Controls("TextBox" & i).Value = Format(UserForm10.Controls("TextBox" & i).Value, "hh:mm")

5:00 s'affiche bien 5:00 mais 12:00 s'affiche 00:00

Y-a-t-il une solution simple sans faire une usine à gaz ?

[mat955]

Bonjour,

Cela ne viendrait pas de la version linguistique d'Office ?
J'ai pour ma part Office en français, et le format "hh:mm" renvoie bien 12:00.

[Franc]

Salut, essaie en remplaçant hh:mm par HH:mm, si mes souvenirs sont exacts, hh utilise une horloge de 12 heures tandis que HH utilise une horloge 24 heures.

[umfred]

Salut, essaie en remplaçant hh:mm par HH:mm, si mes souvenirs sont exacts, hh utilise une horloge de 12 heures tandis que HH utilise une horloge 24 heures.

pourtant selon la doc de Format, hh devrait afficher l'heure en 00-23 (vu qu'il n'y pas le formatage AM/PM dans la chaine de formatage) https://learn.microsoft.com/fr-fr/of...on.windowstate

C'est peut-être en liaison avec le format de la cellule d'origine ? (ou l'affichage système de l'heure)

[retraite83]

Bonjour

#2 J'ai bien la version FR d'Excel

#3 HH:mm ne change rien par rapport à hh:mm

voilà mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
            UserForm10.Controls("TextBox" & i).Value = serv.Cells(8, pHor) ' Horaire
            UserForm10.Controls("TextBox" & i).Value = Format(UserForm10.Controls("TextBox" & i).Value, "HH:mm")

J'ai 12:00 dans "serv.Cells(8, pHor)" je récupère 00:00: dans la TextBox du Userform10

Pour les autres horaires c'est bon

[Philippe Tulliez]

Bonjour,
Format est une fonction qui converti un nombre en texte donc en utilisant la propriété Value d'un TextBox cela ne peut pas fonctionner

Exemple avec formatage d'un nombre 0.50 qui sera converti en 12:00 dans le TextBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Activate()
  Dim t As Double
  t = 0.5
  Me.TextBox1.Value = Format(t, "hh:mm")
End Sub