caro_creche
XLDnaute Nouveau
Salut à tous,
J'ai un formulaire avec un textbox pour introduire des heures. Le hic mon text box est lié à ma cellule et les formats ne sont pas les mêmes.
si je tape dans ma celulle 11:30 c'est correct
si j'utilise mon formulaire il me note un chiffre avec 0,479... ???
voici mon code.
Merci de votre aide
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = vbNullString Then Exit Sub
If IsDate(TextBox2.Value) Then
TextBox2 = Format(TextBox2, "hh:mm")
Range("f7") = TextBox2.Value
Else
MsgBox "L'heure de fin pas une heure correct, veuillez corriger"
TextBox2 = vbNullString
Cancel = True
End If
End Sub
J'ai un formulaire avec un textbox pour introduire des heures. Le hic mon text box est lié à ma cellule et les formats ne sont pas les mêmes.
si je tape dans ma celulle 11:30 c'est correct
si j'utilise mon formulaire il me note un chiffre avec 0,479... ???
voici mon code.
Merci de votre aide
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = vbNullString Then Exit Sub
If IsDate(TextBox2.Value) Then
TextBox2 = Format(TextBox2, "hh:mm")
Range("f7") = TextBox2.Value
Else
MsgBox "L'heure de fin pas une heure correct, veuillez corriger"
TextBox2 = vbNullString
Cancel = True
End If
End Sub