Discussion :

[zoumzoum59]

Bonsoir à tous

J'ai un petit souci avec le code ci-dessous, je ne comprend pourquoi quand le textbox1 est vide et que je le quitte il met renvoie le message d'erreur "incompatibilité de type" sur la ligne en rouge.

Si quelqu'un pouvait m'expliquer pourquoi ça m'arrangerait.
Pour palier a ce probleme j'ai rajouté un test sur une valeur nul sur le code tout en dessous, apparemment ça fonctionne, mais etait-ce la bonne solution?
Sinon quelle autre solution existe.

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim c As Variant
Dim h1 As Date
Application.ScreenUpdating = False
            TextBox1.Value = TimeValue(Left(Application.Text(TextBox1.Value, "00.00"), 2) _
        & ":" & Right(TextBox1.Value, 2))   
             c = TextBox1.Value
                 h1 = TextBox1.Value
       TextBox1.Value = Format(c, "hh\H mm")
 End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim c As Variant
Dim h1 As Date
Application.ScreenUpdating = False
If TextBox1.Value <> "" Then
            TextBox1.Value = TimeValue(Left(Application.Text(TextBox1.Value, "00.00"), 2) _
        & ":" & Right(TextBox1.Value, 2))
                c = TextBox1.Value
                 h1 = TextBox1.Value
       TextBox1.Value = Format(c, "hh\H mm")
 
      End If
 End Sub

[Commodore]

c'est normal que tu aies une incompatibilité de type:

Code :

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

Right(TextBox1.Value, 2)

ce bout de code ne peut pas fonctionner si ta textbox est vide...
tu lui demandes de prendre les 2 caracteres droits de rien du tout.

donc le fait de tester si c'est vide, comme tu l'as fait, est la bonne solution.
[edit] si il faut, tu peux meme rajouter un traitement pour y inserer une valeur de remplacement[/edit]

[Theocourant]

Bonjour,

Il est possible de travailler comme ça :

Code :

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

1
2
3
4
5
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
   Application.ScreenUpdating = False
   TextBox1.Value = Format(CDate(Replace(Application.Text(TextBox1.Value,"00.00"),".",":")),"hh\H mm")
End Sub

Explication du code:

Code :

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

Application.Text(TextBox1.Value,"00.00")

Je récupère l'expression formatée de la TextBox

Code :

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

Replace(...,".",":")

Je remplace le point par deux points

Code :

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

CDate(...)

Je transforme en date

Code :

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

Format(...,"hh\H mm")

Je mets au format souhaité

Code :

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

TextBox1.Value = ...

Je replace dans la textbox

+

Théo