XL 2016 35 Variantes d'écriture dans un numéro de téléphone portable à harmoniser en 1 seul

Dranreb

XLDnaute Barbatruc

• 13 Janvier 2021

• #2

Bonjour.
Le plus simple c'est de l'enregistrer sous forme de nombre dans des cellules munies d'un format Spécial: Numéro de téléphone.

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 13 Janvier 2021

• #3

Bonjour,
en B2 :

VB:

=--DROITE(SUBSTITUE(A2;" ";);9)

@ tirer vers le bas


Format spécial : Numéro de téléphone



Cordialement

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 13 Janvier 2021

• #4

Bonjour

A tester:

Code:

=SI(ESTNUM(A2);A2-ENT(A2/1000000000)*1000000000;CNUM(DROITE(SUBSTITUE(SUBSTITUE(A2;" ";"");".";"");9)))

 

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 13 Janvier 2021

• #5

Bonjour à vous deux

Merci de votre super réactivité, les deux fonctionnent sauf une pour R@chid (d'autant que la formule est hyper condensée, ouahh c'est époustouflant...)

+33 (0)7.99.99.99.99 (je l'ai indiquée dans mon fichier sous la forme)

+33 (0)6.AA.AA.AA.AA

et pour vous deux la cellule

+33 0(6) 99 99 99 99

Si il n'y a pas moyen, ce n'est pas grave, une grosse partie est bien résolue, et vous en remercie.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Janvier 2021

• #6

bonjour
ça fait pas mal de chose a supprimer
les plus courantes

=DROITE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;" ";"");",";"");"-";"");"_";"");"+";"");".";"");")";"");9)

Cliquez pour agrandir...

te reste plus qu'a appliquer le format que tu souhaite en ajoutant un "0" dans le format pour faire 10 chiffres

 

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 13 Janvier 2021

• #7

Merci "patricktoulon", je vais essayer ta formule, et vous reviens demain.
Bonne soirée

 

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 13 Janvier 2021

• #8

En fait juste rajouter un CNUM, puis faire les cellules en format téléphone
Je continue mes tests
Merci

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Janvier 2021

• #9

re

=SIERREUR(CNUM(DROITE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;" ";"");",";"");"-";"");"_";"");"+";"");".";"");")";"");9));"no number")

Cliquez pour agrandir...

et mettre la colonne au format téléphone
les cellules qui n'en seront pas seront pointées "nonumber"

 

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 13 Janvier 2021

• #10

Ah OUI pas mal comme condition pour cerner de suite les "martiens"

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Janvier 2021

• #11

Bonsoir à tous,

@patricktoulon perso au lieu de SUBSTITUE(A2;" ";"") j'écris simplement :

Code:

SUBSTITUE(A2;" ";)

A+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Janvier 2021

• #12

bonsoir @job75
oui les réductions par omission d'argument ça me séduit
mais je préfère donner la version intégrale pour une meilleure compréhension
sinon oui onpeut réduire a ça

Code:

=SIERREUR(CNUM(DROITE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;" ";);",";);"-";);"_";);"+";);".";);")";);9));"no number")

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Janvier 2021

• #13

Bonsoir,

Avec une fonction personnalisée dont le code est dans module1. On renvoie #REF! si ce n'est pas un numéro de téléphone. Recopier la cellule B1 vers le bas.

VB:

Function TailleTel9(ByVal x)
Dim i&, n, c
   For i = Len(x) To 1 Step -1
      c = Mid(x, i, 1)
      If c >= "0" And c <= "9" Then n = c & n
   Next i
   TailleTel9 = CLng(Right(n, 9))
   If Len(TailleTel9) <> 9 Then TailleTel9 = CVErr(xlErrRef)
End Function

 

Pièces jointes

• Philippe Château- Num Tél- v1.xlsm

  17.3 KB · Affichages: 9

Vote positif 0 Vote négatif

P

Philippe Château

XLDnaute Occasionnel

• 14 Janvier 2021

• #14

Bonjour "mapomme"
Merci pour le VB, mais malheureusement je ne peux insérer de VB dans mes fichiers, dommage.
A+ et bonne journée

 

Vote positif 0 Vote négatif