Catégories
Macro Caractères Macros

Macro pour supprimer les accents

La macro ci-dessous permet de supprimer les caractères accentués. La plage en gras correspond à la plage de valeurs dont les accents sont à supprimer.

Option Explicit

Const AccChars = « ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ »
Const RegChars = « SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy »

Sub SupprAccent()
Dim A As String * 1
Dim B As String * 1
Dim i As Integer

For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)

Range(« A1:A3« ).Replace What:=A, _
Replacement:=B, _
LookAt:=xlPart, _
MatchCase:=True

Next

End Sub

Application

Avant

A B C
1 pépé
2 mémé
3 bébé

Après

A B C
1 pepe
2 meme
3 bebe

Les commentaires sont fermés.