Corriger numéro téléphone

Bonsoir à tous,

je souhaiterais créer une macro pour corriger une colonne de données de numéros de téléphone qui ont des formats différents.

Certains ont des espaces entre les numéros, d'autres des tirets.

J'aimerais donc appeler une fonction sur une colonne entière qui prendrait chaque cellule et supprimerait certains caractères que je pourrais placer en argument de la fonction. le code final pourrait prendra la forme suivante :

call supprimer_caractère (colonne, caractère1 à supprimer, caractère 2 à supprimer, caractère 3 à supprimer).

Je ne sais pas comment écrire cela dans une fonction et souhaiterait votre aide pour pouvoir avancere sur le sujet.

Par avance merci et ci joint un mini fichier démo.

Bonjour,

Ceci:

Sub N°_Telephone()
    With Columns("A:A")
        .Replace What:=" ", Replacement:=""
        .Replace What:=".", Replacement:=""
        .Replace What:="-", Replacement:=""
    End With
End Sub

ou plus simplement:

Sub N°_Telephone()
    With Columns("A:A")
        .Replace " ", ""
        .Replace ".", ""
        .Replace "-", ""
    End With
End Sub

Cdlt

Bonjour à tous,

Une autre proposition

Deux types de fonction :

Function Telephone1(ByVal Numero As Variant) As Long

Dim I As Integer

  For I = 1 To Len(Numero)
      Select Case Mid(Numero, I, 1)
             Case 0 To 9
                  Telephone1 = Telephone1 & Mid(Numero, I, 1)
      End Select
  Next I

End Function

Function Telephone2(ByVal Numero As Variant, Optional Separateur As String) As Variant

Dim I As Integer
Dim ChaineTel As String, ChainePro As String

    Telephone2 = ""
    ChainePro = Trim(CStr(Numero))

    For I = 1 To Len(ChainePro)
        Select Case Mid(ChainePro, I, 1)
               Case 0 To 9
                    ChaineTel = ChaineTel & Mid(ChainePro, I, 1)
        End Select
    Next I

    For I = Len(ChaineTel) To 1 Step -1
        Telephone2 = Mid(ChaineTel, I, 1) & Telephone2
        Select Case I
               Case 3, 5, 7, 9
                    Telephone2 = Separateur & Telephone2
               End Select
    Next I

End Function

Hello,

Et avec Power Query

Merci à tous les trois pour vos contributions différentes et qui marchent toutes bien !!

Je vais voir laquelle utiliser pour mon problème.

Mav'