Changer les lettres accentuées

Le
philou36
Bonjour,

Connaissez-vous une méthode pour supprimer les accents des lettres
accentuées.

Dans fonction / Texte j'ai rien trouvé

Un grand merci à vous par avance.

Bonne journée.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Azo4
Le #5424621
edidtion/remplacer ...non?

--
Serge CENCI
MVP MS Windows
https://mvp.support.microsoft.com/profile/Serge.Cenci

"philou36" news:
Bonjour,

Connaissez-vous une méthode pour supprimer les accents des lettres
accentuées.

Dans fonction / Texte j'ai rien trouvé

Un grand merci à vous par avance.

Bonne journée.
JB
Le #5424611
Bonjour,

Dans un module:

Function sansAccent(chaine)
codeA = "ÉÈÊËÔéèêëàçùôûïî"
codeB = "EEEEOeeeeacuouii"
temp = chaine
For i = 1 To Len(temp)
p = InStr(codeA, Mid(temp, i, 1))
If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)
Next
sansAccent = temp
End Function

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_SansAccen t.xls

JB
http://boisgontierjacques.free.fr/

On 4 avr, 14:17, philou36
Bonjour,

Connaissez-vous une méthode pour supprimer les accents des lettres
accentuées.

Dans fonction / Texte j'ai rien trouvé

Un grand merci à vous par avance.

Bonne journée.


Jacky
Le #5424601
Bonjour,

Regarde ici, la fonction perso. de Misange
http://groupes.codes-sources.com/article-supprimer-caracteres-speciaux-279229.aspx

--
Salutations
JJ


"philou36" news:
Bonjour,

Connaissez-vous une méthode pour supprimer les accents des lettres
accentuées.

Dans fonction / Texte j'ai rien trouvé

Un grand merci à vous par avance.

Bonne journée.
Publicité
Poster une réponse
Anonyme