positionner le focus et le curseur

Private Sub h_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If (Not IsNumeric(h) Or h < 0 Or h > 5) Then
        MsgBox ("Erreur....")
        Cancel = True
        With Me.Controls("h")
            .SelStart = 0
            .SelLength = Len(Me.Controls("h").Text)
            .SetFocus
        End With
    End If
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsNumeric(TextBox1) Or TextBox1 < 0 Or TextBox1 > 5 Then
    MsgBox "Erreur...."[B]: Application.SendKeys "+{TAB}": Exit Sub[/B]
    End If
End Sub

Option Explicit

Private Sub CommandButton1_Click()
MsgBox TextBox4.Text & " : " & TextBox1.Text & ":" & TextBox2.Text & ":" & TextBox3.Text
Me.Hide
End Sub

Private Sub CommandButton2_Click()
MsgBox "Saisie annulée"
Me.Hide
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1.Value) Then
  Verif ActiveControl.Name
  Cancel = True
End If
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox2.Value) Then
  Verif ActiveControl.Name
  Cancel = True
End If
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox3.Value) Then
  Verif ActiveControl.Name
  Cancel = True
End If
End Sub

Sub Verif(TB As String)
With Me.Controls(TB)
  .SelStart = 0
  .SelLength = Len(.Text)
End With
End Sub