Discussion :

[Stéphane_MAN]

Bonjour à tous,

Je sais que le sujet à déjà était abordé mais je voulais trouver la solution moi même malheureusement je bloque, je souhaite remplacer tous les caractères avec accents avec des caractères sans accents.

Je souhaite effectuer ce remplacement dans deux colonnes, ma colonne adresse et ma colonne ville.

Voici, ce que j'obtiens dans ma colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro4()
'
' Macro4 Macro
'
 
' Range("A:A,C:C").Select
    Range("C1").Activate
    Selection.Replace What:="à", Replacement:="a", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="é", Replacement:="e", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="ô", Replacement:="o", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Cette macro fonctionne mais, je me vois mal répéter 1000 fois l'opération, ma macro sera monstrueuse et ce n'est pas le but.
Donc j'ai testé la macro ci-dessous et là c'est l'échec.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro4()
'
' Macro4 Macro
'
 
' Range("A:A,C:C").Select
    Range("C1").Activate
    Selection.Replace What:=("à","é","ô"), Replacement:=("a","e","o"), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
End Sub

Si qqun peut m'aider, ça serait sympa.

Merci d'avance

[Invité]

Bonjour

As-tu consulté la FAQ ?

Comme par exemple cela : https://excel.developpez.com/faq/?pa...#EnleveAccents

Philippe

[mjpmjp]

bonjour,

voila ce que j'utilise perso

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
 
Public Function FormatCaractereSimple(ByVal Data As String)
    '------------------------------------------------------------------------
    'ANSI:(American National Standards Institute),jeu de caractères codé sur 8 bits
    'permettant de représenter un maximum de 256 caractères (de 0 à 255) à l'aide du clavier.
    'Les 128 premiers caractères (de 0 à 127) correspondent aux lettres et aux symboles du clavier nord-américain standard.
    'Les 128 caractères suivants (de 128 à 255) représentent les caractères spéciaux
    'comme les lettres de certains alphabets, les accents, les symboles monétaires et les fractions.
    'ASCII:(American Standard Code for Information Interchange),Jeu de caractères codé sur 7 bits
    'utilisé pour représenter les lettres et les symboles d'un clavier nord-américain standard.
    'Le jeu de caractères  utilise les 128 premiers caractères (de 0 à 127) du jeu de caractères ANSI.
    '------------------------------------------------------------------------
    'Formate le titre -->caracteres simples
    Data = Replace(Data, Chr(19), Chr$(45))
    Data = Replace(Data, Chr(145), Chr$(39)) '.." ' "...
    Data = Replace(Data, Chr(156), "oe")
    Data = Replace(Data, Chr(224), "a")
    Data = Replace(Data, Chr(225), "a")
    Data = Replace(Data, Chr(226), "a")
    Data = Replace(Data, Chr(227), "a")
    Data = Replace(Data, Chr(228), "a")
    Data = Replace(Data, Chr(229), "a")
    Data = Replace(Data, Chr(231), "c")
    Data = Replace(Data, Chr(232), "e")
    Data = Replace(Data, Chr(233), "e")
    Data = Replace(Data, Chr(234), "e")
    Data = Replace(Data, Chr(235), "e")
    Data = Replace(Data, Chr(236), "i")
    Data = Replace(Data, Chr(237), "i")
    Data = Replace(Data, Chr(238), "i")
    Data = Replace(Data, Chr(239), "i")
    Data = Replace(Data, Chr(240), "o")
    Data = Replace(Data, Chr(241), "n")
    Data = Replace(Data, Chr(242), "o")
    Data = Replace(Data, Chr(243), "o")
    Data = Replace(Data, Chr(244), "o")
    Data = Replace(Data, Chr(245), "o")
    Data = Replace(Data, Chr(246), "o")
    Data = Replace(Data, Chr(248), "o")
    Data = Replace(Data, Chr(249), "u")
    Data = Replace(Data, Chr(250), "u")
    Data = Replace(Data, Chr(251), "u")
    Data = Replace(Data, Chr(252), "u")
    Data = Replace(Data, Chr(253), "y")
    Data = Replace(Data, Chr(255), "y")
    FormatCaractereSimple = Trim(Data)
End Function

avec comme appel : Data = FormatCaractereSimple(LCase(Data))

@+JP

[mfoxy]

Hello,

On pourrait peut-être imaginer une boucle avec la fonction de JP.
Dans un même module copie/colle la bien pratique fonction de JP , qui fait partie des ce jour de ma trousse à fonction.
Et le code ci dessous, possible bug car codé depuis mon smartphone et non testée, modifier la colonne à traité
Bat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub test ()
 
Dim Cel as Range
Dim Data as String
Dim lDerlig as long
 
lDerlig = Range("A" & Rows.Count).End(xlUp).Row
 
For each Cel in Range ("A2:A"&lDerlig) ' à modifier lettre Colonne a traiter
 
  If Cel.value <> "" then
 
    Data = Cel.value
    Data = FormatCaractereSimple(LCase(Data))
    Cel.value = Data
  Else
     Exit for
  End If
 
Next Cel
 
End Sub

[kiki29]

Salut, voir cette discussion ou ici

[unparia]

Bonjour à tous
Sans compter la solution que j'ai donnée il y a moins de trois semaines .
Message n° 3 de la discussion suivante :
https://www.developpez.net/forums/d1...res-accentues/
(solution qui devrait être plus rapide qu'en parcourant avec Mid)