[VBA E] erreur objet requis sur format horaire

Bonjour a tous

J'ai une erreur objet requis sur la ligne en rouge dans le code suivant et je ne vois pas comment la resoudre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

[Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) dim c as Variant Application.ScreenUpdating = False TextBox1.Value = TimeValue(Left(Application.Text(TextBox1.Value, "00.00"), 2) _ & ":" & Right(TextBox1.Value, 2)) c = TextBox1.Value c.NumberFormat = "h"" H ""mm" End Sub

---

Ce code doit servir a changer la format du texte dans un textebox quand on le quitte.

Si quelqu'un peut m'aider.

Merci

je ne comprends rien à ceci :

Citation:

---

c.NumberFormat = "h"" H ""mm"

---

C'est quoi ?

ne chercherais-tu pas celà ?

Code:

---

1 2 3 4

Private Sub Command1_Click() c = "21:42" MsgBox Format(c, "hhmm") End Sub

---

ou, par "tremplin" ceci ;

Code:

---

1 2 3 4 5

Private Sub Command1_Click() c = "21:42" cFormat = "hhmm" MsgBox Format(c, cFormat) End Sub

---

je n'en sais rien (tes explications sont vraiment n'importe quoi, alors...nous ne pouvons qu'essayer de deviner ce que tu as "dans la tête"..:cry: )

oui jmfmarques

c'est ce que je cherchais et je l'ai réadapté comme cela:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)     Dim c As Variant   Application.ScreenUpdating = False     TextBox1.Value = TimeValue(Left(Application.Text(TextBox1.Value, "00.00"), 2) _ & ":" & Right(TextBox1.Value, 2)) c = TextBox1.Value   TextBox1.Value = Format(c, "h"" H ""mm")     End Sub

---

Merci

Si tu veux...:lol:
mais je te signale qu'il existe une façon moins "acrobatique" :D

Code:

---

TextBox1.Value = Format(c, "hh\Hmm")

---

c'est à cela que sert le slash inverse !

Merci jmfmarques pour ton complement d'info.

Tu as raison, je ne sais pas si au niveau de l'execution il y a une difference, mais visuellement ça passe mieux.