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

thespeedy20 · 31 Octobre 2020

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 · 31 Octobre 2020

Bonjour,

Avec une formule :

Code:

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

Lolote83 · 31 Octobre 2020

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

JHA · 31 Octobre 2020

Bonjour à tous,

A essayer

Edit: modif fichier

JHA

thespeedy20 · 31 Octobre 2020

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

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

thespeedy20

XLDnaute Occasionnel

Pièces jointes

Patrice33740

XLDnaute Impliqué

Pièces jointes

Lolote83

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

thespeedy20

XLDnaute Occasionnel

Discussions similaires