Microsoft 365 formules pour remplacer les caractères "st" et "ste" en début de chaine de texte ou dans la chaine si séparés par 1 espace avant et 1 espace après

[Usine à gaz]

Re-Bonjour à toutes et à tous,

Me voilà devant un nouveau souci

Pour mon fichier communes de France, environ 40000 communes, j'ai besoin de remplacer les caractères "st" et "ste" en début de chaine de texte ou dans la chaine si séparés par 1 espace avant et 1 espace après.
Pour le début de chaine, pas de souci.

Mais voilà avec ma formule actuelle en colonne "E" du fichier test joint, tous les st ou ste, où qu'ils soient positionnés dans la chaine sont remplacés par "saint" ou "sainte".
Evidemment, cela me change les noms des communes et ça ne fait pas mon affaire lol ou plutôt pas lol du tout

A l'instant, malgré mes recherches et tentatives, je n'ai pas trouvé la solution.
Auriez-vous la bonne formule ?
Fichier test joint,

Je continue mes recherches.
A grand merci par avance,
Amicalement,
lionel,

 

[Usine à gaz]

Bonsoir Laurent,
Merci à toi
Je teste dès que je peux et je reviens

 

[Usine à gaz]

Re-Laurent,
ça à l'ai super bien mais comment modifier pour le code traite toutes les lignes jusqu'à la dernière ligne NON VIDEE ?

 

[job75]

Bonsoir Lionel, Chris401, laurent950,

Le VBA est superflu ici.

Décortique cette formule en C6, elle n'est pas trop compliquée :

=SUPPRESPACE(SUBSTITUE(SUBSTITUE(" "&A6;" ste ";" sainte ");" st ";" saint ")&" ("&TEXTE(B6;"00000")&")")

A+

 

[Usine à gaz]

Bonsoir Gérard,
Tjrs là merci à toi
Je vais regarder et je te dirai,
lionel

 

[laurent950]

ça à l'ai super bien mais comment modifier pour le code traite toutes les lignes jusqu'à la dernière ligne NON VIDEE ?

@Usine à gaz

Je suis allez jusqu'à la ligne 65536, vous pouvez allez beaucoup plus loin il faut juste augmenter le chiffre 65536.
' Set Rgn = [C6:C36]
Set Rgn = Range(Cells(6, 3), Cells(Cells(65536, 3).End(xlUp).Row, 3))

 

[Usine à gaz]

LOL, j'ai pas encore compris mais ça fonctionne super bien en premiers test.
Merci Gérard

 

[Usine à gaz]

@Usine à gaz

Je suis allez jusqu'à la ligne 65536
' Set Rgn = [C6:C36]
Set Rgn = Range(Cells(6, 3), Cells(Cells(65536, 3).End(xlUp).Row, 3))

J'ai modifié mais ça ne change rien lol

 

[laurent950]

J'ai modifié mais ça ne change rien lol

j'ai tester cela fonctionne (pour la colonne C)
Set Rgn = [C6:C36]
Set Rgn = Range(Cells(6, 3), Cells(Cells(65536, 3).End(xlUp).Row, 3))

 

[Usine à gaz]

ben oui lol, c'est ce que j'ai fait.
Je vérifie

 

[Usine à gaz]

là, je dois fatiguer lol / c'est pareil

 

[laurent950]

là, je dois fatiguer lol / c'est pareil

Pouvez vous reposter votre fichier Excel avec la modification que vous avez fait a l'instant pour que je regarde et que je corrige

 

[Usine à gaz]

voilà

 

[Usine à gaz]

Dsl, j'ai rien compris lol
mais je pars de la ligne 6

 

[laurent950]

Dsl, j'ai rien compris lol
mais je pars de la ligne 6

Pour faire un test (Avec votre fichier en Poste #27) sans modifier le code VBA
en ligne 25 de votre fichier ajouter en colonne :
A25 = ste croix a lauze
B25 = 4110
C25 = (C'est votre formule) soit : =A25&" ("&B25&")"

Lancer ensuite la macro et en
E25 = La macro donnera le résultat ci-dessous

Sainte croix a lauze (4110)

Faite le test

 

[Usine à gaz]

C'est fait mais le code ne traite que les lignes 6-7-11-12-13 et 25
Il ne traite pas toutes les lignes