Re"mplacement automatique de lettres
Résolu/Fermé
caba_44
Messages postés
99
Date d'inscription
lundi 14 décembre 2009
Statut
Membre
Dernière intervention
24 novembre 2022
-
15 déc. 2009 à 17:11
caba_44 Messages postés 99 Date d'inscription lundi 14 décembre 2009 Statut Membre Dernière intervention 24 novembre 2022 - 16 déc. 2009 à 14:59
caba_44 Messages postés 99 Date d'inscription lundi 14 décembre 2009 Statut Membre Dernière intervention 24 novembre 2022 - 16 déc. 2009 à 14:59
A voir également:
- Re"mplacement automatique de lettres
- Message automatique thunderbird - Guide
- Réponse automatique outlook - Guide
- Sommaire automatique word - Guide
- Gmail libellé automatique - Guide
- Traducteur de page web automatique - Guide
8 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
15 déc. 2009 à 17:23
15 déc. 2009 à 17:23
Salut,
Pas besoin de macro, Excel le fait pour toi...
Edition / remplacer
dans "rechercher" tu indiques : β
dans "remplacer par " tu indiques : ss
et cliques sur "remplacer tout"
et voilà
Pas besoin de macro, Excel le fait pour toi...
Edition / remplacer
dans "rechercher" tu indiques : β
dans "remplacer par " tu indiques : ss
et cliques sur "remplacer tout"
et voilà
caba_44
Messages postés
99
Date d'inscription
lundi 14 décembre 2009
Statut
Membre
Dernière intervention
24 novembre 2022
5
15 déc. 2009 à 17:28
15 déc. 2009 à 17:28
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
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
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
15 déc. 2009 à 17:30
15 déc. 2009 à 17:30
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
Messages postés
99
Date d'inscription
lundi 14 décembre 2009
Statut
Membre
Dernière intervention
24 novembre 2022
5
15 déc. 2009 à 18:53
15 déc. 2009 à 18:53
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
Ĵ ĵ
J j
ķ Ķ
k K
Ĝ ĝ ģ Ģ
G g g G
À Å Æ æ å Á á Á Ą ą Ă ă Ä Ā ā
A A AE ae a A a A A a A a A A a
É È Ê Ë Ę ę Ě ě Ē ē
E E E E E e E e E e
Í Ï í Î ì Ì Ī ī
I I i I i I I i
Ò Ó ò ó Ø ø œ Ô Œ Ő ő õ Õ
O O o o O o oe O OE O o o O
Ú ú Ű ű Ù Ů ů Ŭ ŭ ū Ū
U u U u U U u U u u U
l•l L•L Ł ł
ll LL L l
Ÿ ý Ý
Y y Y
Ç Ć ć Č č Ĉ ĉ
C C c C c C c
Ð ð Ď ď
D d D d
Ń ń Ň ň ņ Ņ
N n N n N n
Ś ś Ş ş Š š Ŝ ŝ
Ss S s S s S s
Ź Ż ż ź Ž ž
Z Z z z Z z
Ţ ţ Ť ť
T t T t
Ř ř
R r
Ļ ļ
L l
Ĥ ĥ
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
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
Ĵ ĵ
J j
ķ Ķ
k K
Ĝ ĝ ģ Ģ
G g g G
À Å Æ æ å Á á Á Ą ą Ă ă Ä Ā ā
A A AE ae a A a A A a A a A A a
É È Ê Ë Ę ę Ě ě Ē ē
E E E E E e E e E e
Í Ï í Î ì Ì Ī ī
I I i I i I I i
Ò Ó ò ó Ø ø œ Ô Œ Ő ő õ Õ
O O o o O o oe O OE O o o O
Ú ú Ű ű Ù Ů ů Ŭ ŭ ū Ū
U u U u U U u U u u U
l•l L•L Ł ł
ll LL L l
Ÿ ý Ý
Y y Y
Ç Ć ć Č č Ĉ ĉ
C C c C c C c
Ð ð Ď ď
D d D d
Ń ń Ň ň ņ Ņ
N n N n N n
Ś ś Ş ş Š š Ŝ ŝ
Ss S s S s S s
Ź Ż ż ź Ž ž
Z Z z z Z z
Ţ ţ Ť ť
T t T t
Ř ř
R r
Ļ ļ
L l
Ĥ ĥ
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
15 déc. 2009 à 20:48
15 déc. 2009 à 20:48
a ouais quand même... Je me penche la dessus demain matin.
caba_44
Messages postés
99
Date d'inscription
lundi 14 décembre 2009
Statut
Membre
Dernière intervention
24 novembre 2022
5
15 déc. 2009 à 20:49
15 déc. 2009 à 20:49
HEHE Merci c'est gentil.
Bonne soirée
Mathieu
Bonne soirée
Mathieu
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
16 déc. 2009 à 14:32
16 déc. 2009 à 14:32
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!) :
Et une autre ou il convient d'ajouter tes caractères spéciaux à la suite les uns des autres comme indiqué en gras :
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
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
Messages postés
99
Date d'inscription
lundi 14 décembre 2009
Statut
Membre
Dernière intervention
24 novembre 2022
5
16 déc. 2009 à 14:59
16 déc. 2009 à 14:59
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 ;)
++
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 ;)
++