[VBA] Comment contrôler la cohérence d'un numéro de téléphone saisi par l'utilisateur ?
S'agissant du contrôle de saisie d'un numéro de téléphone GSM dans un contrôle TextBox d'un Userform, on peut procéder ainsi :
DANS LE MODULE DE CODE DU USERFORMPrivate Sub TextBox1_Change()
'myDearFriend! - www.mdf-xlpages.com
Static T As String
Dim OK As Boolean
Dim i As Byte
Const Chaine As String = "06########"
With TextBox1
For i = 1 To Len(Chaine)
If .Value Like Left(Chaine, i) Then
OK = True
Exit For
End If
Next i
If OK Then T = .Value Else .Value = T
End With
End Sub
Cette Q&R a été trouvée sur myDearFriend! Excel Pages : https://www.mdf-xlpages.com/modules/smartfaq/faq.php?faqid=38