Discussion :

[grisan29]

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

[mayekeul]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

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