Re"mplacement automatique de lettres Résolu

Question

Bonjour,

Sur mon fichier Excel, j'ai des mots comme par exemple "Geschäftführung" où l'on retrouve des "ä" et des "ü".
Mais j'ai pleins d'autres caractère de ce type qu'un autre logiciel ne peut prendre en compte.
Il en est de même pour les ï, ñ, &#946;, etc...  bref des lettres d'autres alphabet que mon logiciel ne peut prendre en compte.

A partir de mon fichier excel, existe t-il une macro qui me permet de rapidement remplacer par d'autre lettre que j'aurai choisi ?

Exemple ä par a   ou bien &#946; par ss  ou bien ñ par n  et bien d'autres encore

Je n'y connais rien en macros ou autre hélas.
Mais si quelqu'un pouvait me donner quelques pistes, ça serait sympa.

Merci d'avance.

Mathieu

pijaku · Answer

Salut,
Pas besoin de macro, Excel le fait pour toi...
Edition / remplacer 
dans "rechercher" tu indiques  : &#946;
dans "remplacer par " tu indiques  : ss
et cliques sur "remplacer tout"
et voilà

caba_44 · Answer

Salut,

Merci ce qui m'oblige à la faire lettre par lettre  hors j'ai une 20aine de caractères différents.
Cela m'oblige t'il a faire du edition remplacer un par un ?

L'idée aurait été de dire pour les caractères "ä,Ï,ü,ñ, etccc...."  ils sont à remplacer automatiquement par "a,i,u,n, etc...)
Plutôt que de faire la manip un par un.

Merci d'avance si cela est possible sinon je ferai ça manuellement

pijaku · Answer

Sur une 20aine de caractère, à moins de devoir le faire 3 fois par jour sinon cela semble faisable. Si tu veux vraiment une macro, c'est faisable techniquement assez facilement même, faut juste voir l'utilité d'une telle automatisation. Dis moi, si tu en veux, tous les caractères "spéciaux" et par quoi faut il les remplacer.

caba_44 · Answer

Bonjour,

Pour ce qui est de l'utilisation, c'est une vraie usine à gaz, car j'ai 30000 contacts ce mois ci à gérer de 25 pays différents.
Je le fais tous les 15 jours sur 15000 lignes en gros.
Notre base de données est Prologue qui ne gère pas les caractères étrangers à ceux Français ce qui est problématique pour la qualité de notre fichier lorsque l'on a besoin du nom correct ou adresse correcte

Ceci serait une étape dans mon processus complet de qualification des données.

Les caractères seraient les suivants :
ß  
ss
Ž ž
Z z
&#308; &#309;
J j
&#311; &#310;
k K
&#284; &#285; &#291; &#290;
G g g G
À Å Æ æ å Á á Á &#260; &#261; &#258; &#259; Ä &#256; &#257;
A A AE ae a A a A A a A a A A a
É È Ê Ë &#280; &#281; &#282; &#283; &#274; &#275;
E E E E E e E e E e
Í Ï í Î ì Ì &#298; &#299;
I I i I i I I i 
Ò Ó ò ó Ø ø œ Ô Œ &#336; &#337; õ Õ
O O o o O o oe O OE O o o O
Ú ú &#368; &#369; Ù &#366; &#367; &#364; &#365; &#363; &#362;
U u U u U U u U u u U
l•l   L•L   &#321;    &#322;
ll    LL    L    l
Ÿ ý Ý
Y y Y
Ç &#262; &#263; &#268; &#269; &#264; &#265;
C C c C c C c
Ð ð &#270; &#271;
D d D d
&#323; &#324; &#327; &#328; &#326; &#325; 
N n N n N n 
&#346; &#347; &#350; &#351; Š š &#348; &#349;
Ss S s S s S s
&#377; &#379; &#380; &#378; Ž ž
Z Z z z Z z
&#354; &#355; &#356; &#357;
T t T t
&#344; &#345;
R r
&#315; &#316;
L l
&#292; &#293;
H h

En gras c'est la lettre particulière et en normal la lettre qui remplace.
C'est un travail long, peut-être que si vous aviez la possibilité de m'en faire quelques uns, ensuite dans le langage je m'y retrouverai peut-être pour ne pas vous charger.

En tout cas merci, si une macro permet de faire cela

Bonne soirée

Mathieu

PS: C'est impressionant le nombre de caractère qu'il peut y avoir juste en europe

pijaku · Answer

a ouais quand même... Je me penche la dessus demain matin.

caba_44 · Answer

HEHE  Merci c'est gentil.

Bonne soirée

Mathieu

pijaku · Answer

Salut,
J'ai pas mal cherché et.... ça ne fonctionne pas avec tous les caractères.
Voici une première macro avec les sources qui fonctionne avec un max de caractères spéciaux (si tu trouves comment, tu peux en ajouter dans Const ACCENT les car spéciaux et dans Const NOACCENT la lettre de remplacement dans l'ordre!) :

Sub remplacer_Car_adapte_a_ton_cas()
    'sources : https://www.developpez.net/forums/d294952/autres-langages/general-visual-basic-6-vbscript/vbscript/vb-script-changer-caracteres-speciaux-caracteres-normaux/
Dim i
Dim lettre
Dim Cell As Variant

    Const ACCENT = "ßžžÀÅåÁáÁÄäÉÈÊËÍÏíÎîìÌÒÓòóØøÔõÕÚúÙùÛûÜüŸÿýÝÇÐðŠšŽž"
    Const NOACCENT = "SzzAAaAaAAaEEEEIIiIiiIOOooOoOoOUuUuUuUuYyyYCDdSsZz"
    
    For Each Cell In ActiveSheet.UsedRange
        For i = 1 To Len(ACCENT)
        lettre = Mid(ACCENT, i, 1)
            If InStr(Cell, lettre) <> 0 Then
                Cell.Value = Replace(Cell.Value, lettre, Mid(NOACCENT, i, 1))
            End If
        Next
    
    Next Cell
    
    Set i = Nothing
    Set lettre = Nothing
        
End Sub

Et une autre ou il convient d'ajouter tes caractères spéciaux à la suite les uns des autres comme indiqué en gras :

Sub remplacerCaracteres()
    Dim Cell As Variant
    For Each Cell In ActiveSheet.UsedRange
        Cell.Value = Replace(Cell.Value, "ß", "ss")
        Cell.Value = Replace(Cell.Value, "Ž", "Z")
        Cell.Value = Replace(Cell.Value, "ton_caractere_special", "la_lettre_de_remplacement")
    Next Cell
End Sub--
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --

caba_44 · Answer

Wouahh, merci... 

Ca fonctionne pour une bonne partie quand même, les autres caractères sont suedois, islandais, ce genre de chose  donc moins utilisé dans mon cas.

Merci beacoup pour avoir penché sur mon cas

A bientôt

Mathieu

PS: A force je vais devenir une bête VBASIC moi aussi ;)

++

Re"mplacement automatique de lettres

8 réponses

Votre réponse

Discussions similaires

Newsletters