XL 2019 numero de tel

maroukeyan

XLDnaute Nouveau
bonjour,
y a t il une formule pour modifier les numéro des tel avec 33 6 20 20 .... et seulement 06 20 20 .... (exemple)
j'ai plus de 700 numéro et je ne peux pas les modifier manuellement.
merci à tous
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Maroukeyan,
Si le N° en 33 est en A1, alors essayez :
VB:
="0"&DROITE(A1;13)
Par contre cela suppose que toute votre liste est au bon format, sinon par plus de sécurité :
Code:
=SI(CNUM(GAUCHE(A1;2))<>33;A1;"0"&DROITE(A1;13))
Si ça commence par 33 on modifie, sinon on laisse dans l'état.
 

job75

XLDnaute Barbatruc
Bonjour maroukeyan, sylvanu,

Une formule un peu plus compliquée qui fonctionne dans (presque) tous les cas de figure :
Code:
=SI(ESTNUM(-SUBSTITUE(A1;" ";));--SI(GAUCHE(SUBSTITUE(A1;" ";);2)="33";STXT(SUBSTITUE(A1;" ";);3;99);SUBSTITUE(A1;" ";));""&A1)
Normalement le résultat est un nombre sans espace et sans zéro non significatif.

Mettre la colonne A au format spécial Numéro de téléphone.

La formule renvoie une erreur uniquement si 33 est seul dans la cellule.

A+
 

dg62

XLDnaute Barbatruc
Bonjour maroukeyan, sylvanu, job75

et en vba sur une plage déterminée

VB:
Sub sup_prefix()
Dim cel As Range
For Each cel In Range("A1:A30")
If Len(cel.Value) > 13 Then cel.Value = "0" & Right(cel.Value, 13)
Next cel
End Sub
 

Statistiques des forums

Discussions
313 030
Messages
2 094 560
Membres
106 052
dernier inscrit
pseudomay