Format personnalisé dans TextBox

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:

---

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 ?

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.

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.

Citation:

---

Envoyé par 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.

---

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)

Bonjour

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

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

voilà mon code

Code:

---

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

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:

---

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

---

Bonjour Philippe

merci de votre réponse, j'avais remonté dans le forum jusqu'à trouver votre réponse sur le sujet le 10/01/2018 à 4h24...

J'ai suite à cela j'avais fait un test sur 0,5 pour forcer la valeur à 12:00 et cela marche très bien

Mais j'ai peur que d'autre heures donnent la valeur 0,5 et donc que cela ne résolve pas complétement le problème

Bonjour,

Citation:

---

Mais j'ai peur que d'autre heures donnent la valeur 0,5 et donc que cela ne résolve pas complétement le problème

---

Une heure dans excel est une valeur décimale comprise entre 0 et 1 (1 = 24 heures). La fonction Format renverra la bonne chaîne de caractères en fonction de la valeur décimale passée dans son premier argument.
En revanche, si l'heure est supérieure ou égale à 24 heures, il faudra gérer cela autrement.

J'ignorai cela, je comprends maintenant les valeurs décimales que je trouvai bizarre dans les cellules "date"

Bonjour,
Dans excel on peut stocker essentiellement des valeurs numériques, du texte, des valeurs logiques (VRAI/FAUX) et des formules en commençant par "=".
Une date, une heure, un pourcentage, etc. sont des nombres formatés

Pour en savoir plus

• Comprendre et gérer les dates sous Excel et en VBA
• Création, enregistrement et fusion de formats personnalisés