Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

remplacer les accents

9 réponses
Avatar
Gérard DEMOULIN
Je voudrais remplacer les lettres accentu=E9es par des=20
lettres sans accents (=E9 par e, =E0 par a, ...) dans une=20
s=E9rie de cellule contenant du texte.
Quelqu'un a t'il une macro ou une fonction qui fait cela ??

Merci d'avance.

9 réponses

Avatar
Jacques Gronier
Bonjour Gérard,Une Macro de AV, disponible sur www.excelabo.netJ'ai besoin
d'enlever tous les accents d'un texte...Tu peux utiliser cette fonction.
Il faut ouvrir VBA, insérer un nouveau module, ne surtout pas mettre la
fonction dans le
code d'une page.
Tu colles la fonction. Dans ta feuille il te suffit alors de taper par ex en
G2
=Virer_Accents(F2)
et si ton texte en F2 contient des accents il se retrouve sans dans G2.

Function Virer_Accents$(Chaine$)
Dim tmp$
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function 'AVAlain VallonJacques

Gérard DEMOULIN wrote:
Je voudrais remplacer les lettres accentuées par des
lettres sans accents (é par e, à par a, ...) dans une
série de cellule contenant du texte.
Quelqu'un a t'il une macro ou une fonction qui fait cela ??

Merci d'avance.


Avatar
sabatier
oui, oui et si le texte se trouve, comme cela semble être le cas, dans
plusieurs cellules, il suffit de mettre cette proc dans un module
standard (ça peut être le même que celui de la fonction) :

Sub supprimerAccents()
Dim C
Application.ScreenUpdating = False
For Each C In Selection
C.Value = Virer_Accents(C.Value)
Next C
End Sub

puis de monter une icône dans la BO de son choix et de lui affecter
cette macro ; il suffira ensuite de sélectionner les cellules dont le
texte est à modifier puis d'exécuter la macro...
jps

Jacques Gronier a écrit:
Bonjour Gérard,Une Macro de AV, disponible sur www.excelabo.netJ'ai besoin
d'enlever tous les accents d'un texte...Tu peux utiliser cette fonction.
Il faut ouvrir VBA, insérer un nouveau module, ne surtout pas mettre la
fonction dans le
code d'une page.
Tu colles la fonction. Dans ta feuille il te suffit alors de taper par ex en
G2
=Virer_Accents(F2)
et si ton texte en F2 contient des accents il se retrouve sans dans G2.

Function Virer_Accents$(Chaine$)
Dim tmp$
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function 'AVAlain VallonJacques

Gérard DEMOULIN wrote:

Je voudrais remplacer les lettres accentuées par des
lettres sans accents (é par e, à par a, ...) dans une
série de cellule contenant du texte.
Quelqu'un a t'il une macro ou une fonction qui fait cela ??

Merci d'avance.







Avatar
ChrisV
Salut JP,

Ou le tout en un...

Sub zaza()
Dim c As Range
Dim i As Integer
Dim txT As String
Application.ScreenUpdating = False
For Each c In Selection
txT = c.Value
For i = 1 To Len(txT)
caR = Mid(txT, i, 1)
Select Case Asc(caR)
Case 192 To 197: caR = "A"
Case 200 To 203: caR = "E"
Case 204 To 207: caR = "I"
Case 210 To 214: caR = "O"
Case 217 To 220: caR = "U"
Case 221: caR = "Y"
Case 224 To 229: caR = "a"
Case 232 To 235: caR = "e"
Case 236 To 239: caR = "i"
Case 240, 242 To 246: caR = "o"
Case 249 To 252: caR = "u"
Case 253, 255: caR = "y"
End Select
Mid(txT, i, 1) = caR
c.Value = txT
Next i
Next c
End Sub

Pour monter la proc dans une BO, je te laisse faire, c'est toi l'expert dans
ce domaine !
;-)


ChrisV


"sabatier" a écrit dans le message de news:

oui, oui et si le texte se trouve, comme cela semble être le cas, dans
plusieurs cellules, il suffit de mettre cette proc dans un module
standard (ça peut être le même que celui de la fonction) :

Sub supprimerAccents()
Dim C
Application.ScreenUpdating = False
For Each C In Selection
C.Value = Virer_Accents(C.Value)
Next C
End Sub

puis de monter une icône dans la BO de son choix et de lui affecter
cette macro ; il suffira ensuite de sélectionner les cellules dont le
texte est à modifier puis d'exécuter la macro...
jps

Jacques Gronier a écrit:
Bonjour Gérard,Une Macro de AV, disponible sur www.excelabo.netJ'ai
besoin


d'enlever tous les accents d'un texte...Tu peux utiliser cette fonction.
Il faut ouvrir VBA, insérer un nouveau module, ne surtout pas mettre la
fonction dans le
code d'une page.
Tu colles la fonction. Dans ta feuille il te suffit alors de taper par
ex en


G2
=Virer_Accents(F2)
et si ton texte en F2 contient des accents il se retrouve sans dans G2.

Function Virer_Accents$(Chaine$)
Dim tmp$
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function 'AVAlain VallonJacques

Gérard DEMOULIN wrote:

Je voudrais remplacer les lettres accentuées par des
lettres sans accents (é par e, à par a, ...) dans une
série de cellule contenant du texte.
Quelqu'un a t'il une macro ou une fonction qui fait cela ??

Merci d'avance.










Avatar
sabatier
salut chris...
et merci pour ce tout en un

ChrisV a écrit:
Salut JP,


Pour monter la proc dans une BO, je te laisse faire, c'est toi l'expert dans
ce domaine !
;-)
j'ai dû décliner l'invitation à l'apéro de popi : en effet, demain à

10h, j'organise une visite à pied de mes diverses BO ; si ça
t'intéresse...regarde le Michelin vert : "vaut le détour"
jps

Avatar
Alain
-----Message d'origine-----
Je voudrais remplacer les lettres accentuées par des
lettres sans accents (é par e, à par a, ...) dans une
série de cellule contenant du texte.
Quelqu'un a t'il une macro ou une fonction qui fait
cela ??


Merci d'avance.




Avatar
ChrisV
;-))


ChrisV


"sabatier" a écrit dans le message de news:

salut chris...
et merci pour ce tout en un

ChrisV a écrit:
Salut JP,


Pour monter la proc dans une BO, je te laisse faire, c'est toi l'expert
dans


ce domaine !
;-)
j'ai dû décliner l'invitation à l'apéro de popi : en effet, demain à

10h, j'organise une visite à pied de mes diverses BO ; si ça
t'intéresse...regarde le Michelin vert : "vaut le détour"
jps




Avatar
sabatier
tu te moques ou quoi, là, alain?
demande à gérard dumoulin : il a ta réponse depuis quelques temps mais
dans la journée quand même...
jps

Alain a écrit:
-----Message d'origine-----
Je voudrais remplacer les lettres accentuées par des
lettres sans accents (é par e, à par a, ...) dans une
série de cellule contenant du texte.
Quelqu'un a t'il une macro ou une fonction qui fait


cela ??

Merci d'avance.








Avatar
sabatier
pardon : DEMOULIN
jps

sabatier a écrit:
tu te moques ou quoi, là, alain?
demande à gérard dumoulin : il a ta réponse depuis quelques temps mais
dans la journée quand même...
jps

Alain a écrit:

-----Message d'origine-----
Je voudrais remplacer les lettres accentuées par des lettres sans
accents (é par e, à par a, ...) dans une série de cellule contenant
du texte.
Quelqu'un a t'il une macro ou une fonction qui fait



cela ??

Merci d'avance.












Avatar
Alain
Salut,

Je me moque de personne - J'avais le même besoin que G.D.
pour remplacer les lettres accentuées.

Merci beaucoup et bonjour de Québec.

-----Message d'origine-----
tu te moques ou quoi, là, alain?
demande à gérard dumoulin : il a ta réponse depuis
quelques temps mais

dans la journée quand même...
jps

Alain a écrit:
-----Message d'origine-----
Je voudrais remplacer les lettres accentuées par des
lettres sans accents (é par e, à par a, ...) dans une
série de cellule contenant du texte.
Quelqu'un a t'il une macro ou une fonction qui fait


cela ??

Merci d'avance.







.