Profil supprimé | Salut,
J'ai un souci de focus sur TextBox ... Quand je fais un SetFocus après une erreur de saisie, celui-ci se fait sur la TextBox suivante !
Comment modifier le code ci-dessous pour faire en sorte qu'en cas d'erreur de saisie des TextBox1 TextBox2 ou TextBox3, le champs en erreur soit selectionner ???
Merci pour votre aide,
Voici le code :
Code :
- Private Sub UserForm_Initialize()
- TextBox1.Value = "00:00"
- TextBox2 = "00:00"
- TextBox3.Value = "00:00"
- End Sub
- Private Sub TextBox1_AfterUpdate()
- horaire1 = TextBox1.Value
- If Len(horaire1) <> 5 Or Left(Right(horaire1, 3), 1) <> ":" Then
- MsgBox ("ATTENTION >>> L'heure de Début doit être au format hh:mm" & Chr(13) & Chr(13) & "Merci de vérifier votre saisie." ), vbExclamation, "Erreur de Saisie ..."
- TextBox1.Value = "00:00"
- TextBox1.SetFocus
- Cancel = True
- TextBox1.SelStart = 0
- TextBox1.SelLength = Len(TextBox1.Text)
- End If
- End Sub
- Private Sub TextBox3_AfterUpdate()
- horaire3 = TextBox3.Value
- If Len(horaire3) <> 5 Or Left(Right(horaire3, 3), 1) <> ":" Then
- MsgBox ("ATTENTION >>> L'heure de Fin doit être au format hh:mm" & Chr(13) & Chr(13) & "Merci de vérifier votre saisie." ), vbExclamation, "Erreur de Saisie ..."
- TextBox3.Value = "00:00"
- TextBox3.SetFocus
- Cancel = True
- TextBox3.SelStart = 0
- TextBox3.SelLength = Len(TextBox3.Text)
- End If
- Dim H1 As Date
- Dim H3 As Date
- H1 = CDate(TextBox1.Value)
- H3 = CDate(TextBox3.Value)
- If H3 <= H1 Then
- MsgBox ("ATTENTION >>> Merci de vérifier la cohérence de l'Heure de Fin." ), vbExclamation, "Erreur de Saisie ..."
- TextBox2 = "00:00"
- TextBox3.Value = "00:00"
- End If
- End Sub
|
|
