Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Azo4
edidtion/remplacer ...non?
-- Serge CENCI MVP MS Windows https://mvp.support.microsoft.com/profile/Serge.Cenci
"philou36" a écrit dans le message de 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.
edidtion/remplacer ...non?
--
Serge CENCI
MVP MS Windows
https://mvp.support.microsoft.com/profile/Serge.Cenci
sergioENLEVERfrance@orange.fr
"philou36" <philippe.blanchard.36@gmail.com> a écrit dans le message de
news:4d6c2d7b-56ad-485a-ae23-12e9bbe9d2a8@z38g2000hsc.googlegroups.com...
Bonjour,
Connaissez-vous une méthode pour supprimer les accents des lettres
accentuées.
-- Serge CENCI MVP MS Windows https://mvp.support.microsoft.com/profile/Serge.Cenci
"philou36" a écrit dans le message de 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
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
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.
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
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
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
Bonjour,
Regarde ici, la fonction perso. de Misange http://groupes.codes-sources.com/article-supprimer-caracteres-speciaux-279229.aspx
-- Salutations JJ
"philou36" a écrit dans le message de 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.
Bonjour,
Regarde ici, la fonction perso. de Misange
http://groupes.codes-sources.com/article-supprimer-caracteres-speciaux-279229.aspx
--
Salutations
JJ
"philou36" <philippe.blanchard.36@gmail.com> a écrit dans le message de
news: 4d6c2d7b-56ad-485a-ae23-12e9bbe9d2a8@z38g2000hsc.googlegroups.com...
Bonjour,
Connaissez-vous une méthode pour supprimer les accents des lettres
accentuées.