Changement de caractères

[maval]

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

 

[job75]

Bonjour maval, le forum,

Je ne comprends pas que pierrejean utilise la fonction Split, elle ne sert à rien ici :

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+

 

[maval]

Bonjour Job

Oui excuse moi de ne pas avoir répondu.
C'est Nickel
Je vous remercie