Format de Cellule pour Téléphone fixe et Gsm

thespeedy20

XLDnaute Occasionnel
Bonjour à tous,

J'ai une colonne(A) de + ou - 1600 numéro de gsm ou de téléphone fixé stocké sous forme de texte pour pouvoir garder le 0 devant.
J'aimerais avec une macro pouvoir :

si c'est pour le gsm = 10 caractères , format : 0000/00.00.00
si c'est pour le tél fix = 9 caractères, format : 000/00.00.00

Merci d'avance pour votre aide
Ps : je joins un fichier avec une vingtaine de numéro factice

Oli
 

Pièces jointes

  • format_tel.xlsx
    8.8 KB · Affichages: 25

Lolote83

XLDnaute Barbatruc
Salut,
Voir cette petite macro qui devrait le faire
VB:
Sub FormatTéléphone()
    For Each xCell In Range("A2:A20")
        xCell.NumberFormat = "General"
        xCell.Formula = xCell.Value
        Select Case Len(xCell)
            Case Is = 8     'Fixe
                xCell.NumberFormat = "000""/""00"".""00"".""00"
            Case Is = 9     'Gsm
                xCell.NumberFormat = "0000""/""00"".""00"".""00"
        End Select
    Next xCell
End Sub
@+ Lolote83
 

Discussions similaires