Bonjour,
Ci-joint, code à adapter à tes conditions ...
Private Sub TextBox1_Change()
' Uniquement des Nombres
With TextBox1
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "Merci de saisir des Nombres"
.Value = vbNullString
End If
End With
End Sub
Private Sub TextBox2_Change()
' Uniquement des Lettres
With TextBox2
If IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "Merci de saisir des Lettres"
.Value = vbNullString
End If
End With
End Sub