[VBA E]erreur incompatibilité de type que je ne comprend pas

[treza88]

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




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





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

 

[Kobaya]

Re : [VBA E]erreur incompatibilité de type que je ne comprend pas

salut,

essaie ceci, bien que j'ai l'évènement LostFocus et pas Exit :

Private Sub TextBox1_LostFocus()
    If TextBox1.Value <> "" Then
        TextBox1.Value = Replace(TextBox1.Value, ".", ":")
        TextBox1.Value = Format(TextBox1.Value, "hh\H mm")
    End If
End Sub

 

[treza88]

Re : [VBA E]erreur incompatibilité de type que je ne comprend pas

Salut Kobaya

j'ai essayé ton code mais rien ne bouge dans le textbox quand je le quitte l'affichage reste avec une virgule.

Et pour preferer Lostfocus à exit?

 

[Kobaya]

Re : [VBA E]erreur incompatibilité de type que je ne comprend pas

d'ou vient ce Exit ?

1. j'utilise la barre d'outils "Boite à outils Contrôles", ou je sélectionne "Zone de texte" que je dépose ensuite sur la feuille.
2. ensuite, clic droit sur l'objet et visualiser le code
3. dans le combobox de droite, choisir LostFocus au lieu de Change

et là, normalement, ça marche

 

[treza88]

Re : [VBA E]erreur incompatibilité de type que je ne comprend pas

Salut

Desolé j'ai omis de dire que montextbox etait dans une frame et elle meme sur une userform.
D'ou le exit dans les procedure de l'objet textbox.

Toutes mes excuses.

 

[Kobaya]

Re : [VBA E]erreur incompatibilité de type que je ne comprend pas

alors c'est ça :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Value <> "" Then
        TextBox1.Value = Replace(TextBox1.Value, ".", ":")
        TextBox1.Value = Format(TextBox1.Value, "hh\H mm")
    End If
End Sub

j'ai testé et ça marche

 

[treza88]

Re : [VBA E]erreur incompatibilité de type que je ne comprend pas

Je te remercie Kobaya

Mais pour quel raison ça ne marcerait pas avec lostfocus?

 

[Kobaya]

Re : [VBA E]erreur incompatibilité de type que je ne comprend pas

apparemment ce contrôle ActiveX n'a pas tout les même noms d'évènements selon qu'on le pose sur une feuille ou un formulaire.
sortir du textbox :

• sur un formulaire, c'est Exit
• sur une feuille Excel, c'est LostFocus

les mystères de Bill...

voili, voilou 🙂

 

[treza88]

Re : [VBA E]erreur incompatibilité de type que je ne comprend pas

Ok Je te rmercie Kobaya

Je poursuivrer mes recherches, mais pour l'instant je jette l'eponge pour un repos conpensateur.

Merci encore