Test N° de Tel

[gds35]

Bjr mes Amis du Forum ,
Je cherche a verifier que lors d'une saisie d'un N° de portable il commence par 06 . J'ai ecris cela ss succes. Peut être avez vous la solution mais je n'en doute pas. Voila le code ecris , pourquoi ne fonctionne t'il pas ???
' FORMATAGE du N° de GSM
'
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
et si je commence a entrer le N° des la frappe du zero il m'affiche ma TB

Salut et merci Bon WE ; GDS35

 

[justine]

Re : Test N° de Tel

bonjour le forum
GDS35, j'ai posté hier (joss56 aussi), qu'il fallait enlever des guillemets. or je vois dans ton code qu'ils y sont toujours.
si tu ne suis pas les recommandations des personnes qui t'aident, ne t'etonne pas si cela ne marche pas.
il n'y a aucune colere contre toi mais regarde attentivement les reponses.

je vous souhaite a tous un tres bon week end de paques

 

[Pierrot93]

Re : Test N° de Tel

Re GéGé, bonsoir Justine

Justine, une suite ici :

https://www.excel-downloads.com/threads/re-test-gsm.93412/

pas facile à suivre....

bonne soirée
@+