Discussion :

[zoumzoum59]

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

[jmfmarques]

je ne comprends rien à ceci :

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

C'est quoi ?

ne chercherais-tu pas celà ?

Code :

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

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

ou, par "tremplin" ceci ;

Code :

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

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".. )

[zoumzoum59]

oui jmfmarques

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

Code :

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

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

[jmfmarques]

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

Code :

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

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

c'est à cela que sert le slash inverse !

[zoumzoum59]

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.