Changement de caractères

maval · 21 Novembre 2018

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 · 6 Décembre 2018

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+

maval · 15 Décembre 2018

Bonjour Job

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

Changement de caractères

maval

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires