SmartFAQ is developed by The SmartFactory (http://www.smartfactory.ca), a division of InBox Solutions (http://www.inboxsolutions.net)

[VBA] Comment contrôler la cohérence d'un numéro de téléphone saisi par l'utilisateur ?

Q&R publiée par MyDearFriend! le 21-03-2008 (3049 Lectures)

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 USERFORM
Private 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

Ce code reste facilement adaptable aux différentes situations rencontrées.

  Imprimer la Q&R Envoyer la Q&R