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

[thespeedy20]

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

 

[Patrice33740]

Bonjour,

Avec une formule :

=GAUCHE(A3;NBCAR(A3)-6)&"/"&GAUCHE(DROITE(A3;6);2)&"."&GAUCHE(DROITE(A3;4);2)&"."&DROITE(A3;2)

 

[Lolote83]

Salut,
Voir cette petite macro qui devrait le faire

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

 

[JHA]

Bonjour à tous,

A essayer

Edit: modif fichier

JHA

 

[thespeedy20]

Bonjour Patrice33740, Lolote83, JHA

Je vous remercie pour vos propositions qui fonctionnent très bien...
3 solutions...

Je remercie encore Lolote83 pour sa macro, c'est que je désirais et elle va intégré mon projet..

Bonne soirée à tous

OLi