Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim c As Control
For Each c In Frame1.Controls
If TypeOf c Is MSForms.TextBox Then
If Not IsNumeric(c.Value) And Not IsEmpty(c.Value) Then
MsgBox c.Name & " : saisie non valide !!!"
Cancel = True
c.SetFocus
Exit For
End If
End If
Next c
End Sub