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 : Sélectionner tout - Visualiser dans une fenêtre à part
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