[Résolu] Macro évènementielle pour remplacer caractères spéciaux

libellule85 · 4 Mars 2017

Bonjour le forum,

j'ai récupéré dans un open data une bdd, par contre toutes les lettres ayant des accents apparaissent avec Ã¨ pour le é.
J'ai fait une macro par l'intermédiaire de l'enregistreur et cela me donne ceci :

VB:

Sub Macro1()
'    'Range("A1065").Select
    'ActiveCell.FormulaR1C1 = "34 - HÃ©rault"
    Cells.Replace What:="[B]Ã¨[/B]", Replacement:="[B]è[/B]", LookAt _
        :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Donc pour chaque voyelles particulières je suis obligée de coller à chaque fois le caractère spécial ainsi que son correspondant "normal" !
Je voulais donc savoir, s'il n'était pas possible de faire une macro événementielle (en F1 le caractère spécial à remplacer et en G1 le bon caractère) qui se déclenche après renseignement de la deuxième cellule (G1) ?
D'avance merci pour votre aide.

JCGL · 11 Mars 2017

Bonjour à tous,

Libellule : l'import en fichier *.xlsx te donne les bons caractères.

A+ à tous

libellule85 · 11 Mars 2017

Bonjour JCGL,
Je suis tout à fait d'accord avec toi dans ce cas là, mais quand tu télécharges des fichiers sur les sites datas soit du gouvernement, soit de l'Insee etc... le plus souvent ce sont des fichiers csv et très rarement des fichiers excel ! L'un des derniers que j'ai téléchargé faisait plus de 3 millions 400 000 lignes...

job75 · 11 Mars 2017

Bonjour libellule85 et les autres,

For I = 0 To 10000 c'est un peu laborieux non ?

Les gens normaux utilisent For I = 0 To UBound(A_Remplacer)

A+

libellule85 · 11 Mars 2017

Bonsoir Job75,
Un grand merci pour cette précision, je modifie de suite.

[Résolu] Macro évènementielle pour remplacer caractères spéciaux

libellule85

XLDnaute Accro

JCGL

XLDnaute Barbatruc

Pièces jointes

libellule85

XLDnaute Accro

job75

XLDnaute Barbatruc

libellule85

XLDnaute Accro

Discussions similaires