OVH Cloud OVH Cloud

3564737 par XXXXX

3 réponses
Avatar
titi
Bonjour

voilà mon probleme

je dispose d'uine liste assez impressionnante de Nombres qui me
remontent tous les mois ( en fait des n° de tél )
je dois avant de les dispatcher les modifier de la sorte

par exemple un 01 45 97 56 79 en 01 45 97 XX XX
mon probleme est que certains n° n'affichent que 9 chiffres donc il
fadrait que je remplace systematiquement les quatres derniers chiffres
par des XXXX sans tenir compte du debut

et pour l'intant ma macro coince

3 réponses

Avatar
Rai
<titi> a écrit dans le message de news:
Bonjour

voilà mon probleme

je dispose d'uine liste assez impressionnante de Nombres qui me
remontent tous les mois ( en fait des n° de tél )
je dois avant de les dispatcher les modifier de la sorte

par exemple un 01 45 97 56 79 en 01 45 97 XX XX
mon probleme est que certains n° n'affichent que 9 chiffres donc il
fadrait que je remplace systematiquement les quatres derniers chiffres
par des XXXX sans tenir compte du debut

et pour l'intant ma macro coince


Bonjour,

En partant du principe que tes numéros sont de longueur variable, mais toujours supérieure à 5 caractères, et que les groupes de chiffres sont séparés par des espaces :
Par formule dans ta feuille
=GAUCHE(B2;NBCAR(B2)-5)&"XX XX"
' B contient le numéro ;o))
Par macro
ActiveCell.Offset(0, 2) = Left$(ActiveCell, Len(ActiveCell) - 5) + "XX XX"
'remplacer ActiveCell par l'objet Range de ton choix

Voilà, bon week-end



--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

Avatar
RaMA
Bonjour
@;-)

=STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);1;2)&"
"&STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);3;2)&"
"&STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);5;2)&"
"&STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);7;2)&"
"&STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);9;2)

Salutations
RaMa


--
.
<titi> a écrit dans le message de news:

Bonjour

voilà mon probleme

je dispose d'uine liste assez impressionnante de Nombres qui me
remontent tous les mois ( en fait des n° de tél )
je dois avant de les dispatcher les modifier de la sorte

par exemple un 01 45 97 56 79 en 01 45 97 XX XX
mon probleme est que certains n° n'affichent que 9 chiffres donc il
fadrait que je remplace systematiquement les quatres derniers chiffres
par des XXXX sans tenir compte du debut

et pour l'intant ma macro coince


Avatar
RaMA
Re

où ceci pour respecter la demande!!
=STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);1;2)&"
"&
STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);3;2)&"
"&
STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);5;2)&"
XX XX"

Je n'ai pas essayé le N° de Ste Anne MdR<:-)))
RaMa
--
.
"RaMA" a écrit dans le message de news:

Bonjour
@;-)

=STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);1;2)&"
"&STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);3;2)&"
"&STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);5;2)&"
"&STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);7;2)&"
"&STXT(STXT(+A1*(10^(10-NBCAR(A1)-1))+10^10;2;NBCAR(A1)+1)&REPT("X";10-NBCAR(A1)-1);9;2)

Salutations
RaMa


--
.
<titi> a écrit dans le message de news:

Bonjour

voilà mon probleme

je dispose d'uine liste assez impressionnante de Nombres qui me
remontent tous les mois ( en fait des n° de tél )
je dois avant de les dispatcher les modifier de la sorte

par exemple un 01 45 97 56 79 en 01 45 97 XX XX
mon probleme est que certains n° n'affichent que 9 chiffres donc il
fadrait que je remplace systematiquement les quatres derniers chiffres
par des XXXX sans tenir compte du debut

et pour l'intant ma macro coince