Private Sub Phone_KeyPress(ByVal K As MSForms.ReturnInteger)
If InStr("1234567890", Chr(K)) = 0 Then K = 0
End Sub
Private Sub Phone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'propriété Maxlength mise à 10
Dim L As Byte
L = Len(Phone)
If L < 10 Then
MsgBox "il faut 10 chiffres !", 48, "N° incomplet..."
Cancel = 1
End If
End Sub