bonjour,
Sur un formulaire j'ai le contole suivant (recupéré sur un forum)
Private Sub TelFixe_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr(1, "0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
MsgBox ("n'entrez que des chiffres sans espaces")
End If
End Sub
or...