XL 2013 Texte en nom propre

maval

XLDnaute Barbatruc
Bonjour,

Dans une colonne j'ai des noms en majuscule comme ceci:

SAINT-LAURENT-DE-BREVEDENT
AVÈNE
AZILLANET
BABEAU-BOULDOUX
BAILLARGUES
BALARUC-LE-VIEUX
BALARUC-LES-BAINS
BASSAN

Et j'aimerai les convertir comme ceci et avec les accents

ex: SAINT-LAURENT-DE-BREVEDENT Saint-Laurent-de-Brèvedent

Je vous remercie d'avance

Max
 

Pièces jointes

  • Nom_prope.xlsm
    22 KB · Affichages: 8

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Bonjour,

Je ne vois pas comment on peut convertir des majuscules sans accent en minuscules accentuées.
La fonction perso Nompropre2() est plus rapide qu'une formule matricielle pour les 36.000 communes de France.

VB:
Function NomPropre2(nom As String)
  temp = Application.Proper(nom)
  Tbl = Array("De-", "Du-", "Des-", "Le-", "Les-", "La-", "Sur-", "Et-", "En-", "Au-")
  For i = 0 To UBound(Tbl)
    temp = Replace(temp, Tbl(i), LCase(Tbl(i)))
  Next i
  NomPropre2 = temp
End Function


Boisgontier
 

Pièces jointes

  • Copie de Nom_prope-1.xlsm
    22.8 KB · Affichages: 7

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour à chacun,

Voici une proposition, qui va chercher les libellés des communes dans la base nationale des adresses.
Ce n'est bien sûr pas instantané, mais on peut être certain des accents et orthographe des noms de communes trouvées.
Facultativement, une colonne score donne le score de correspondance de la recherche dans la base.

Bon après-midi
 

Pièces jointes

  • Nom_prope.xlsm
    34.6 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
312 070
Messages
2 085 043
Membres
102 766
dernier inscrit
Awiix