numero telephone dans textbox

Version imprimable

05/08/2010, 07h19
grisan29

numero telephone dans textbox

bonjour a vous

comment puis je procéder pour que le text box qui prends le n° téléphone qui est sur feuil1, dont la cell est au format spécial numéro de téléphone ,puisse avoir le meme format car la réecriture dans la cell de destination est au meme format que la première
autrement quel est le code afin que le textbox reconnaisse que c'est un n° telephone qui est inscrit(ce textbox ne sert qu'a ça)

merci de votre compétence

bonne journée

Pascal

bonjour,

tu peux t'inspirer de ceci
(oui, j'ai formaté "à la belge") ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub TextBox1_Change()
    Dim Entry As String, Pos As Integer
    Entry = UCase(Right(TextBox1.Text, 1))
    Pos = Len(TextBox1)
    If Pos = 4 Or Pos = 7 Or Pos = 10 Then Exit Sub
    If Entry Like "#" Then
        Select Case Pos
            Case 3
                TextBox1 = TextBox1 & "/"
            Case 6
                TextBox1 = TextBox1 & "."
            Case 9
                TextBox1 = TextBox1 & "."
            Case 13
                TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
                TextBox1.SelStart = Len(TextBox1)
        End Select
        Exit Sub
    End If
    Beep
    On Error Resume Next
    TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
    TextBox1.SelStart = Len(TextBox1)
End Sub

05/08/2010, 18h18
grisan29

bonjour mayekeul

merci cela fonctionne tres bien rien a redire hormis que l'espace entre chiffre n'est pas présent lors de l'ecriture du n° ou de l'inscription du n°dans le textbox
bonne fin de journée

Pascal
24/08/2010, 10h48
grisan29

bonjour mayekeul

je suis désolé pour l'autre post mais j'avais mal intégré la formule et je m'en excuse car maintenant il n'y a rien a dire

bonne fin de journée

Pascal[/QUOTE]