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

[libellule85]

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 :

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]

Bonjour à tous,

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

A+ à tous

 

[libellule85]

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]

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]

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