Microsoft 365 supprime chiffres et l'espace avant 1ère lettre

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un excellent WE 🙂
lol, mon 1er post en tant que "Usine à gaz" qui me colle à la peau ... n'est-pas ? 😉😛

Alors voilà mon "little" souci.
mromain à répondu sur ce fil : https://www.excel-downloads.com/threads/supprimer-des-chiffres-dans-une-chaine.121135/

Ses codes fonctionnent très bien et un grand merci.
Mais, pour mon besoin il me manque un "chti" complément dans le code qui supprime les chiffres.

Mes communes commencent toujours par le code postal - 1 espace et le nom
J'ai besoin que les chiffres soient supprimés et aussi "Uniquement" le 1er espace avant la 1ère lettre.
J'ai fait des tentatives .. mais je n'y arrive pas.
Auriez-vous la solution ?
En cas, je joins le fichier test.
Avec les remerciements de l'Usine à gaz 😛
lionel,

 

[sylvanu]

Bonjour Usine à gaz,
Dans maFonction juste avant End Function vous pourriez rajouter :

If Left(maFonction, 1) = " " Then maFonction = Mid(maFonction, 2)

Il supprimera le premier caractère si celui ci est un espace.

 

[Usine à gaz]

Bonjour sylvanu,
Super nickel, c'est tout bon.
Je te remercie 🙂
lionel,

 

[job75]

Bonsoir Lionel, sylvanu,

Perso j'écrirais plutôt à la fin :

maFonction = Trim(maFonction)

A+

 

[kiki29]

Salut, toujours utile : Manipuler les chaînes de caractères en VB6 et VBA Excel

 

[Usine à gaz]

Bonsoir Gérard,
Présent comme tjrs : merci à toi 🙂
je vais regarder ...
lionel,

 

[Usine à gaz]

Bonsoir kiki29,
Merci, je vais regarder 🙂
lionel,