XL 2019 Trouver 1ère lettre et remplacer

julien5521 · 17 Décembre 2022

Bonjour je cherche une formule ou une macro qui permet de trouver la 1ere lettre dans une celulle et la remplacer par un espace ou un caractère commun

Exemple
2215.21Fer
00212Magn
55631Xevc

Ce qui donnerais

2215.21 Fer
00212 Magn
55631 Xevc

Merci ;=

R@chid · 18 Décembre 2022

Bonjour cher Job75,

job75 à dit:
Voyez le fichier joint avec la liste des "lettres" en colonne F et cette formule matricielle en B2 :

Code:

=REMPLACER(A2;PETITE.VALEUR(SI(NB.SI(F:F;STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1));LIGNE(INDIRECT("1:"&NBCAR(A2))));1);1;" "&STXT(A2;PETITE.VALEUR(SI(NB.SI(F$2:F$127;STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1));LIGNE(INDIRECT("1:"&NBCAR(A2))));1);1))

à valider par Ctrl+Maj+Entrée.

La 1ère lettre peut être majuscule ou minuscule, accentuée ou non.

A+

On peut écrire ta formule comme ça :

VB:

=REMPLACER(A2;EQUIV(VRAI;NB.SI(F$2:F$127;STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))>0;0);;" ")

@ valider toujours par Ctrl+Maj+Entrée

Cordialement

job75 · 19 Décembre 2022

Bonjour R@chid,

Ah oui bien sur, pas besoin de remplacer la lettre, il suffit d'insérer un espace.

Merci.

A+

XL 2019 Trouver 1ère lettre et remplacer

julien5521

XLDnaute Nouveau

R@chid

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires