Microsoft 365 remplacer caractères

[Usine à gaz]

Bonjour à toutes et à toutes,
Je vous souhaite un bon et beau WE

Je bute encore une fois sur un codage que je n'arrive pas à faire.
Et je me permets de vous solliciter à nouveau.
Contexte
Nos Clients ou nvx Clients nous envoient par mail des listes de communes à prospecter.
Afin de ne pas prospecter les communes pour trop de Clients, je vérifie les communes que nous avons déjà en prospection.
Pour cela j'ai un classeur, avec un code fait avec l'enregistreur de macro, pour remplacer le maximum de cas rencontrés, qui va pas trop mal lol

Les Clients m'envoient leurs communes en écritures diverses et variées LOL
Pour que je puisse vérifier dans mon classeur, il est impératif que les communes comparées soient "rigoureusement" nommées à l'identique.

Toutefois, c'est incomplet, je gère plus de 4000 communes et je suis trop souvent obligé de passer bcp de temps pour vérifier manuellement.

J'ai obtenu de je ne sais plus qui du forum un code (mes excuses pour l'avoir oublié et mes remerciements à nouveau) qui fonctionne très bien pour certains remplacements de caractères :

Function Sans_accents(chaine As Range)
   Dim T As String, A As String, B As String
   Dim i As Integer, U As String
   If chaine.Value = "" Then Exit Function
   T = chaine.Value
   'remplacement des caractères accentués
   A = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿçÇ"
   B = "AAAAAAEEEEIIIINOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyycC"
   For i = 1 To Len(T)
      U = InStr(1, A, Mid(T, i, 1), 0)
      If U Then Mid(T, i, 1) = Mid(B, U, 1)
   Next i
   Sans_accents = T
End Function

Malheureusement, j'ai d'autres remplacements à faire et je n'arrive pas à trouver comment faire le code
exemple :
8400 ardeuil-a-montfauxelles
8400 ardeuil_a_montfauxelles
Résultats attendus
8400 ardeuil a montfauxelles
8400 ardeuil a montfauxelles
etc...

J'ai fait un fichier test dans lequel :
- en colonne A (a4 à a38) j'ai listé les noms de communes à modifier,
- en colonne D j'ai listé les résultats attendus,

Auriez-vous la solution ?
Cela me ferait gagner un temps considérable.
Je joins le fichier test,
Avec mes remerciements,
lionel,

 

[Pounet95]

Bonjour,
En retour le fichier avec une fonction Sans_accents_2
En prime, une feuille avec la liste des communes françaises pour vérifier le nom exact.
La recherche sur le code INSEE donne beaucoup de réponse pour l'exemple proposé, mais avec filtre ça devrait être rapide quand même

Claude alias Pounet95

 

[Usine à gaz]

Bonjour Pounet95,
Merci pour tous ces cadeaux
Je vais tester et je te dis,
lionel,

 

[Usine à gaz]

Re-Bonjour,
J'ai regardé mais ça ne donne pas les résultats attendus.
Merci tout de même pour ce nouveau code
Je continue mes recherches,
lionel,

 

[Usine à gaz]

Re
J'aimerais voir ce qui ne vas pas.
Voudrais-tu me commenter ton code ?
Un grand merci
lionel,

 

[Pounet95]

Re,
Effectivement, il n'y a pas qu'un caractère qui doit changer ou être remplacé.
les espaces entre noms doivent rester, un espace entre une apostrophe et une autre lettre doit être effacé. De même il faut traiter les cas de st (saint) ste (sainte), s (ou / )pour sous ou sur ?
C'est bien plus complexe d'où mon idée de joindre la liste des communes avec code insee

En ce qui concerne le code, je me sers du code ASCII de chaque caractère et de son pendant CHR
Exemple pour A le code ASCII est 65 et CHR(65) donne A

Dis-moi si tu veux que j'aille plus loin ET/OU qu'un des nombreux officiants sur ce forum y mette aussi les doigts. Je n'en serais aucune vexé.

Claude

 

[Usine à gaz]

Merci Pounet95 pour m'avoir répondu
Je crois que c'est très ardu mais ce serait super

D'une part en modifiant les caractères :
A = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿçÇ"
remplacement :
B = "AAAAAAEEEEIIIINOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyycC"

+ tous mes cas répertoriés = Résultats souhaités en colonne D

8400 ardeuil-a-montfauxelles
8400 ardeuil_a_montfauxelles

8400 ardeuil-aux-montfauxelles
8400 ardeuil_aux_montfauxelles

8400 ardeuil d' amont
8400 ardeuil-d' amont
8400 ardeuil_d' amont

8400 ardeuil l' amont
8400 ardeuil-l'amont
8400 ardeuil_l'amont

8400 ardeuil-de-montfauxelles
8400 ardeuil_de_montfauxelles

8400 ardeuil-des-montfauxelles
8400 ardeuil_des_montfauxelles

8400 ardeuil-du-montfauxelles
8400 ardeuil_du_montfauxelles

8400 ardeuil-et-montfauxelles
8400 ardeuil_et_montfauxelles

8400 ardeuil-en-montfauxelles
8400 ardeuil_en_montfauxelles

8400 ardeuil-la-montfauxelles
8400 ardeuil_la_montfauxelles

8400 ardeuil-le-montfauxelles
8400 ardeuil_le_montfauxelles

8400 ardeuil-les-montfauxelles
8400 ardeuil_les_montfauxelles

8400 st ardeuil les montfauxelles
8400 ste ardeuil les montfauxelles

8400 ardeuil s/montfauxelles
8400 ardeuil s/ montfauxelles

8400 ardeuil-s/montfauxelles
8400 ardeuil_s/ montfauxelles

8400 ardeuil-vers-montfauxelles
8400 ardeuil_vers_montfauxelles

Je remets le fichier test que j'ai modifié,
lionel

 

[Compte Supprimé 979]

Bonjour le fil

Voici la fonction corrigée

Function Sans_Accent(Chaine As String)
  Dim Avec As String, Sans As String
  Dim Ind As Integer, PosAcc As Integer
  If Chaine = "" Then Exit Function
  ' Liste des caractères accentués
  Avec = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿçÇ_-/"
  ' Liste des caractères sans accent
  Sans = "AAAAAAEEEEIIIINOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyycC   "
  ' Pour toute la longueur de la chaine
  For Ind = 1 To Len(Chaine)
    ' Recherche dans la liste accentuée, le caratère de la chaine en position Ind
    PosAcc = 0: PosAcc = InStr(1, Avec, Mid(Chaine, Ind, 1))
    ' Si le caratère est trouvé
    If PosAcc > 0 Then
      ' LE remplacer par sa correspondance sans accent
      Chaine = Replace(Chaine, Mid(Avec, PosAcc, 1), Mid(Sans, PosAcc, 1))
    End If
  Next Ind
  ' Retourner la valeur de la fonction
  Sans_Accent = Chaine
End Function

@+

 

[Usine à gaz]

Re, j'ai oublié de te dire que mes Clients n'envoient jamais de codes insee ... mais des codes postaux et des noms de communes provenant de toutes sources sur le net et plus bizarres les uns que les autres LOL ... mais pas drôle du tout pour travailler

 

[Usine à gaz]

Bonjour BrunoM45,
Merci d'être là et pour la fonction
Je vais tester et je reviens,
lionel,

 

[Usine à gaz]

Re-Bonjour BrunoM45,

Il doit y avoir un truc que je n'ai pas compris lol
J'ai copié ton code tel quel et j'obtiens :

lionel,

 

[Usine à gaz]

Re-Bonjour BrunoM45,
Rectification, je me suis planté j'avais pas vu que tu avais enlevé le S de "Sans_Accents".
Super, ça fonctionne nickel
Un très grand merci

Juste les :
8400 st ardeuil les montfauxelles
8400 ste ardeuil les montfauxelles
8400 ardeuil s/montfauxelles
8400 ardeuil s/ montfauxelles
8400 ardeuil-s/montfauxelles
8400 ardeuil_s/ montfauxelles
Ne sont pas traités si ce n'est pas possible de les inclure dans le code, je peux faire un second code juste pour eux avec :
Selection.Replace What:="st", Replacement:="saint", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
etc...
Lionel

 

[Usine à gaz]

Re-Bonjour BrunoM45,

Evidemment je pige "que couic" à ton code et je me pose une question.
Si on m'invente une appellation d'une commune, par exemple :
8400 ardeuil_trou duc_montfauxelles
veux-tu me dire comment je l'ajoute dans le code ?

pour obtenir : 8400 ardeuil montfauxelles

Merci,
lionel

 

[Compte Supprimé 979]

Re,

Voilà le fichier modifier pour traiter les cas de ton post #12

Pour ce qui est du "_" c'est déjà traité dans la partie "Avec" et est remplacé par un espace

Nota : tout caractère unique que tu ne voudrais pas, il suffit de l'ajouter à la liste "Avec" et tu mets dans la liste "Sans" le caractère de remplacement

@+

 

[Pounet95]

Re,
Il y a, avec la liste des communes jointe, moyen de faire un filtre élaboré (avancé) et de chercher un nom de ville, commune, village au moins approchant.
Ca permettra d'éviter de tenter une "normalisation" d'un n'importe quoi ( ton exemple .. par exemple)

Au passage , merci Bruno
Par contre il y a toujours le "d' " ou le "l' " ainsi que les cas st, ste, sur !!!!!
Il va falloir autant de ligne que de communes pour traiter les cas. Compris sur la version à l'instant !
Claude