Bonjour,

Je cherche à formater des String en numéros de téléphone. J'ai écrit la fonction suivante, mais ça ne fonctionne pas des masses. j'ai conscience que c'est un problème basique, mais je n'ai rien trouvé de probant sur le net.

Merci d'avance pour votre coup de main.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    Function FormatTEL(ByVal num As String) As String
        If num <> "" Then
            If Len(num) = 10 Then
                num = Format(num, "## ## ## ## ##")
            Else
                num = Format(num, "0# ## ## ## ##")
            End If
        Else
            num = ""
        End If
 
        Return num
    End Function