Changement de caractères

maval

XLDnaute Barbatruc
Bonjour,

Dans la colonne "B5" j'ai des noms de départements..... écris normalement "Puy-De-Dôme" .
Je cherche un code ou une formule pour me recopier dans la colonne "C" "puy_de_dome"

C'est à dire sans majuscule, sans accent et un tiret bas entre les mots

Je joint un fichier exemple

Je vous remercie d'avance

Max
 

Pièces jointes

  • formules2.xlsm
    9.6 KB · Affichages: 14

job75

XLDnaute Barbatruc
Bonjour maval, le forum,

Je ne comprends pas que pierrejean utilise la fonction Split, elle ne sert à rien ici :
Code:
Function minus(cellule) As String
minus = LCase(cellule)
minus = Trim(Replace(minus, """", ""))
minus = Replace(minus, "'", "_")
minus = Replace(minus, "_x27_", "'")
minus = Replace(minus, " ", "_")
minus = SansAccent(minus)
End Function

Function SansAccent(chaine As String)
Dim codeA$, codeB$, i%, p%
codeA = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
codeB = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"
For i = 1 To Len(chaine)
    p = InStr(codeA, Mid(chaine, i, 1))
    If p Then Mid(chaine, i, 1) = Mid(codeB, p, 1)
Next
SansAccent = chaine
End Function
A+
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T