Re : Test N° de Tel
Bonjour a tous mes AMIS du Forum ,
Malgré mes nombreux tests impossible de tester la validité du debut du GSM soit 06. Je compte sur vs car je vais peter un plomb !!!!!!
SVP Corrigé moi ce maudit code MERCI , MERCI , MERCI 1000 Fois
Dim NumGsm As String
NumGsm = GSM.Text
DebNum = Mid("NumGsm", 1, 2)
If DebNum <> "06" Then
MsgBox ("LE N° D'UN PORTABLE COMMENCE PAR 06")
Else
Select Case Len(NumGsm)
Case 2, 5, 8, 11
NumGsm = NumGsm & "."
End Select
GSM.Text = NumGsm
'
End If
GDS35