Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

libellule85

XLDnaute Accro
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.
 

libellule85

XLDnaute Accro
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...
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…