[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 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.

Cette Q&R a été trouvée sur myDearFriend! Excel Pages : https://www.mdf-xlpages.com/modules/smartfaq/faq.php?faqid=38