Private Sub TEXTELFIXE_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TEXTELFIXE <> "" And Len(TEXTELFIXE) < 13 Then
MsgBox "10 CARACTERES NUMERIQUES OBLIGATOIRES", vbCritical, "SAISIE N° TELEPHONE FIXE"
End If
End Sub
Private Sub TEXTELFIXE_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < 48, Is > 57 'interdit la saisie de caractère alpha
KeyAscii = 0
End Select
Select Case Len(TEXTELFIXE)
Case 2, 5, 8, 11 'formatte le numero
TEXTELFIXE = TEXTELFIXE & Chr(46)
Case Is > 13 'interdit la saisie de plus de 10 chiffres
KeyAscii = 0
End Select
End Sub
Private Sub TEXTELMOBILE_Change()
If Len(TEXTELMOBILE) <> 2 Then Exit Sub
If Left(TEXTELMOBILE, 2) <> "06" And Left(TEXTELMOBILE, 2) <> "07" Then
MsgBox "PREFIXE INVALIDE DOIT ETRE EGAL A 06 ou 07", vbCritical, "SAISIE N° TELEPHONE MOBILE 1"
TEXTELMOBILE = ""
End If
End Sub
Private Sub TEXTELMOBILE_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TEXTELMOBILE <> "" And Len(TEXTELMOBILE) < 13 Then
MsgBox "10 CARACTERES NUMERIQUES OBLIGATOIRES", vbCritical, "SAISIE N° TELEPHONE MOBILE 1"
End If
End Sub
Private Sub TEXTELMOBILE_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < 48, Is > 57
KeyAscii = 0
End Select
Select Case Len(TEXTELMOBILE)
Case 2, 5, 8, 11
TEXTELMOBILE = TEXTELMOBILE & Chr(46)
Case Is > 13
KeyAscii = 0
End Select
End Sub