Macro avec des accents

Version imprimable

17/11/2008, 10h24
ceweb

Macro avec des accents

Bonjour,

Est ce possible d'ignorer les accents dans une macro ?

Je m'explique :
fichier n°1
Troye d''Ariege (colonne avec l'adresse du site internet)
5000 lignes

fichier n°2
Troye d''Ariège (colonne en attente de recevoir la macro avec le site internet)
35 000 lignes

La macro va aller chercher si elle trouve des villes identiques entre le fichier n°1 et 2
Si macro trouve 2 villes identiques = prend adresse www dans le fichier 1 pour insérer adresse www dans le fichier 2

1ère question
Est ce qu'il existe une méthode pour comparer les villes sans tenir compte des accents ?

Code:

ÀàÁáÂâÃãÄäÅåÆæÇçÈèÉéÊêËëÌìÍíÎîÏïÐðÑñÒòÓóÔôÕõÖöØøÙùÚúÛûÜüÝýÞþœŒ

2 ème question
Si toutes les villes sont en Majuscule dans le fichier n°1 est ce que ça pourrait solutionner le problème de mes accents qui sont dans le fichier n°2 que je veux conserver ?

Pour le moment je suis bloqué la dessus parce toutes les villes qui ont des accents sont ignorés avec l'exécution de la macro :cry:
17/11/2008, 10h45
oOVaveOo

Bonjour,
Je ne sais pas comment tu fais la recherche mais tu as une option :

Code:

vbTextCompare

A tester ...
17/11/2008, 10h47
ceweb

Normalement cela permet d'ignorer les différences entre min et maj, mais n'est pas insensible aux accents ;)
17/11/2008, 10h51
decondelite

Le truc qui marchera à coup sûr, c'est d'utiliser les expressions régulières pour remplacer tous tes caractères à accents par les caractères sans accents. ;)
17/11/2008, 11h46
ceweb

c'est exactement ce que je ne veux pas faire ;)

Je dois conserver les accents ;) c'est ça ma question et pas comment les enlever :P
17/11/2008, 11h56
decondelite

On ne s'est pas très bien compris: tu compares ta donnée sans accent à celle où tu remplaces les accents par des lettres pour savoir si tes 2 villes correspondent. Bien sûr ça ne modifiera rien à tes données. Ai-je été assez clair?

Lis un peu les tutos sur les regex je pense que ça sera un peu plus complet et explicite sur ce que ça te permet de faire:
http://lgmorand.developpez.com/dotnet/regex/
http://cafeine.developpez.com/access/tutoriel/regexp/

Bonjour,

Je préfèrerais en ce qui me concerne rester sur du "très probablement" (ce sera très souvent bien suffisant dans un tel cas ...)

Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
  Dim texte1 As String, texte2 As String, conclusion As String
  texte1 = "Voilà un exemple. Ici avec le mot Ariège et là avec le mot Tübingen"
  texte2 = "Voila un exemple. Ici avec le mot Ariege et là avec le mot Tubingen"
  conclusion = IIf(comparons(texte1, texte2), "sont très vraisemblablement", "ne sont pas")
  MsgBox texte1 & vbCrLf & "et" & vbCrLf & texte2 & vbCrLf & conclusion & " la même chose"
End Sub
Private Function comparons(t1 As String, T2 As String) As Boolean
  Dim titi() As Byte, I As Integer, filtre As String
  titi = StrConv(t1, vbFromUnicode)
  filtre = ""
  For I = 0 To UBound(titi)
    If titi(I) > 127 Then
      filtre = filtre & "?"
    Else
      filtre = filtre & Chr(titi(I))
    End If
  Next
If T2 & t1 Like filtre & filtre Then comparons = True
End Function

Et rien n'empêche, si on le désire en plus, d'ignorer la casse (suffit de comparer Lcase de l'un avec Lcase de l'autre, par exemple...

Ce que je cherche dois ressembler à ça

Citation:

vbTextCompare
si trouve
[^ÀàÁáÂâÃãÄäÅåÆæÇçÈèÉéÊêËëÌìÍíÎîÏïÐðÑñÒòÓóÔôÕõÖöØøÙùÚúÛûÜüÝýÞþœŒ]
alors ignore uniquement ces caractères pour faire la comparaison

Ci dessus l'expression régulière ignore les accents, mais je ne sais pas comment l'insérer dans une macro pour Excel !

Si j'ai bien compris je dois utiliser ça ?
Code:

1 2 3 4 5 6 7 Private Sub Command4_Click() Dim texte1 As String, texte2 As String, conclusion As String texte1 = "ÀàÁáÂâÃãÄäÅåÆæÇçÈèÉéÊêËëÌìÍíÎîÏïÐðÑñÒòÓóÔôÕõÖöØøÙùÚúÛûÜüÝýÞþœŒ" texte2 = "AaBbCcDdEefGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz" conclusion = IIf(comparons(texte1, texte2), "sont très vraisemblablement", "ne sont pas") MsgBox texte1 & vbCrLf & "et" & vbCrLf & texte2 & vbCrLf & conclusion & " la même chose" End Sub
De cette façon tous les caractères spéciaux seront ignoré.
Exact ?

17/11/2008, 12h19
ucfoutu

Oui...
Ce n'est qu'un exemple de démarche, à adapter à ton cas (notamment si tu as dans Texte1 des accents, mais également dans Texte2, mais pas au même endroit).
La comparaison n'est pas EXACTE, mais TRES PROBABLE.

Mais... tu ne peux comparer un texte n'ayant QUE des accents (comme tu l'as fait dans ta réponse) avec un Texte sans accents !
Marchera Pour comparer, par exemple "Ariège" avec "Ariege", pas (bien évidemment, pour comparer "ééàà" avec "eeaa" ...(c'est celà, qu'on appelle le "très probable" ...)

dans mon texte 1
Les villes sont en Majuscules
dans mon texte 2
Les villes sont en minuscule avec des accents et c'est dans ce fichier que je veux importer des infos venant du texte1 avec les villes en majuscule pour faire ma comparaison

Citation:

Mais... tu ne peux comparer un texte n'ayant QUE des accents (comme tu l'as fait dans ta réponse) avec un Texte sans accents !

Désolé mais pas compris :oops:
Tu veux dire que le code évoqué ci dessus ne fonctionnera pas dans mon cas ?
Je peux pas ajouter chaque mot dans la formule, j'ai 36490 lignes, j'ai pas d'autre choix que d'utiliser une expression régulière comme ci dessous ?

Si je fais ça est ce que c'est bon ?
Code:

1 2 3 4 5 6 7 Private Sub Command4_Click() Dim texte1 As String, texte2 As String, conclusion As String texte1 = "AaBbCcDdEefGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz" texte2 = "AaBbCcDdEefGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZzÀàÁáÂâÃãÄäÅåÆæÇçÈèÉéÊêËëÌìÍíÎîÏïÐðÑñÒòÓóÔôÕõÖöØøÙùÚúÛûÜüÝýÞþœŒ" conclusion = IIf(comparons(texte1, texte2), "sont très vraisemblablement", "ne sont pas") MsgBox texte1 & vbCrLf & "et" & vbCrLf & texte2 & vbCrLf & conclusion & " la même chose" End Sub

17/11/2008, 12h45
decondelite

Tiens au passage je ne savais pas qu'il existait une fonction VB servant d'équivalent aux ternaires en C: c'est parti pour m'en servir à fond. :P

Sinon uc: ben honnêtement le "très probable" est certes efficace en terme de temps d'exécution, mais bon ça reste du "très probable".

Question de choix: la rapidité ou l'exactitude. Perso je déteste ne pas avoir le contrôle à 100% de ce qui se fait dans un programme (question de sécurité et de fiabilité), donc devinez mon choix.

EDIT pour ceweb qui a posté pendant que je rédigeais:
ce que ucfoutu veut te dire, c'est que son script dira que les mots "banane" et "ùéèâÏô" sont identiques. ;)

et si on écrit le code comme ça ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Command4_Click()
Dim texte1 As String, texte2 As String, conclusion As String
texte1 = "A"
texte2 = "AaÀàÁáÂâÃãÄäÅå"
Dim texte3 As String, texte4 As String, conclusion As String
texte3 = "E"
texte4 = "EeÈèÉéÊêËë"
Dim texte5 As String, texte6 As String, conclusion As String
texte5 = "I"
texte6 = "IiÌìÍíÎîÏï"
Dim texte7 As String, texte8 As String, conclusion As String
texte7 = "O"
texte8 = "OoÒòÓóÔôÕõÖöØø"
Dim texte9 As String, texte10 As String, conclusion As String
texte9 = "U"
texte10 = "UuÙùÚúÛûÜü"
Dim texte11 As String, texte12 As String, conclusion As String
texte11 = "Y"
texte12 = "YyÝý"
Dim texte13 As String, texte14 As String, conclusion As String
texte13 = "C"
texte14 = "CcÇç"
Dim texte15 As String, texte16 As String, conclusion As String
texte15 = "D'"
texte16 = "D'd'd''"
Dim texte17 As String, texte18 As String, conclusion As String
texte17 = "L'"
texte18 = "L'l'l''"
 
     conclusion = IIf(comparons(texte1, texte2), "sont très vraisemblablement", "ne sont pas")
MsgBox texte1 & vbCrLf & "et" & vbCrLf & texte2 & vbCrLf & conclusion & " la même chose"
    conclusion = IIf(comparons(texte4, texte4), "sont très vraisemblablement", "ne sont pas")
MsgBox texte3 & vbCrLf & "et" & vbCrLf & texte4 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte5, texte6), "sont très vraisemblablement", "ne sont pas")
MsgBox texte5 & vbCrLf & "et" & vbCrLf & texte6 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte7, texte8), "sont très vraisemblablement", "ne sont pas")
MsgBox texte7 & vbCrLf & "et" & vbCrLf & texte8 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte9, texte10), "sont très vraisemblablement", "ne sont pas")
MsgBox texte9 & vbCrLf & "et" & vbCrLf & texte10 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte11, texte12), "sont très vraisemblablement", "ne sont pas")
MsgBox texte11 & vbCrLf & "et" & vbCrLf & texte12 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte13, texte14), "sont très vraisemblablement", "ne sont pas")
MsgBox texte13 & vbCrLf & "et" & vbCrLf & texte14 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte15, texte16), "sont très vraisemblablement", "ne sont pas")
MsgBox texte15 & vbCrLf & "et" & vbCrLf & texte16 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte17, texte18), "sont très vraisemblablement", "ne sont pas")
MsgBox texte17 & vbCrLf & "et" & vbCrLf & texte18 & vbCrLf & conclusion & " la même chose"
End Sub

17/11/2008, 13h58
decondelite
Toutes tes comparaisons donneront un résultat négatif: tu ne peux comparer que les chaînes de longueur égale.

Compare des trucs comme ça:
Code:

1 2 texte1="bâteau" texte2="bateau"
17/11/2008, 14h09
ucfoutu

Bon...
Amusez-vous donc bien et faites vos jeux (chrono en main)...
Dans la foulée, trouvez-moi donc un exemple de deux villes qui, à la comparaison "très probable" dont je parle, résisteraient à mon type de comparaison ...:lol:

ucfoutu

Citation:

ucfoutu
Bon...
Amusez-vous donc bien et faites vos jeux (chrono en main)...

Ok je veux bien, mais c'est toi qui m'explique que ça marchera pas dans mon cas !

Citation:

ucfoutu
Mais... tu ne peux comparer un texte n'ayant QUE des accents (comme tu l'as fait dans ta réponse) avec un Texte sans accents !

J'ai proposé une variante de ton exemple, tu en pense quoi ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Command4_Click()
Dim texte1 As String, texte2 As String, conclusion As String
texte1 = "A"
texte2 = "AaÀàÁáÂâÃãÄäÅå"
Dim texte3 As String, texte4 As String, conclusion As String
texte3 = "E"
texte4 = "EeÈèÉéÊêËë"
Dim texte5 As String, texte6 As String, conclusion As String
texte5 = "I"
texte6 = "IiÌìÍíÎîÏï"
Dim texte7 As String, texte8 As String, conclusion As String
texte7 = "O"
texte8 = "OoÒòÓóÔôÕõÖöØø"
Dim texte9 As String, texte10 As String, conclusion As String
texte9 = "U"
texte10 = "UuÙùÚúÛûÜü"
Dim texte11 As String, texte12 As String, conclusion As String
texte11 = "Y"
texte12 = "YyÝý"
Dim texte13 As String, texte14 As String, conclusion As String
texte13 = "C"
texte14 = "CcÇç"
Dim texte15 As String, texte16 As String, conclusion As String
texte15 = "D'"
texte16 = "D'd'd''"
Dim texte17 As String, texte18 As String, conclusion As String
texte17 = "L'"
texte18 = "L'l'l''"
 
     conclusion = IIf(comparons(texte1, texte2), "sont très vraisemblablement", "ne sont pas")
MsgBox texte1 & vbCrLf & "et" & vbCrLf & texte2 & vbCrLf & conclusion & " la même chose"
    conclusion = IIf(comparons(texte4, texte4), "sont très vraisemblablement", "ne sont pas")
MsgBox texte3 & vbCrLf & "et" & vbCrLf & texte4 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte5, texte6), "sont très vraisemblablement", "ne sont pas")
MsgBox texte5 & vbCrLf & "et" & vbCrLf & texte6 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte7, texte8), "sont très vraisemblablement", "ne sont pas")
MsgBox texte7 & vbCrLf & "et" & vbCrLf & texte8 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte9, texte10), "sont très vraisemblablement", "ne sont pas")
MsgBox texte9 & vbCrLf & "et" & vbCrLf & texte10 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte11, texte12), "sont très vraisemblablement", "ne sont pas")
MsgBox texte11 & vbCrLf & "et" & vbCrLf & texte12 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte13, texte14), "sont très vraisemblablement", "ne sont pas")
MsgBox texte13 & vbCrLf & "et" & vbCrLf & texte14 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte15, texte16), "sont très vraisemblablement", "ne sont pas")
MsgBox texte15 & vbCrLf & "et" & vbCrLf & texte16 & vbCrLf & conclusion & " la même chose"
	conclusion = IIf(comparons(texte17, texte18), "sont très vraisemblablement", "ne sont pas")
MsgBox texte17 & vbCrLf & "et" & vbCrLf & texte18 & vbCrLf & conclusion & " la même chose"
End Sub

Citation:

decondelite
Compare des trucs comme ça:
Code :

texte1="bâteau"
texte2="bateau"

Avec 35 000 lignes à écrire j'ai plus besoin d'une macro mais d'un an pour chercher les mots que je dois réecrire :lol:

17/11/2008, 14h45
ucfoutu

Je crois tout simplement que le mécanisme t'a complètement échappé ...:lol:

Bon....
je reviens pour te faire plaisir (et faire plaisir à tous les puristes) avec de l'exactitude (au prix d'une fraction de seconde, probablement). Je m'y mets donc...
A +

Ben voilà donc (salut à decondelite) ...
Je change là de conversion et m'amuse un peu avec autre chose (au prix d'une fraction de seconde) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Command1_Click()
  Dim texte1 As String, texte2 As String, conclusion As String
  texte1 = "Voilà un exemple. Ici avec le mot Ariège et la avec le mot Tübingen"
  texte2 = "Voila un exemple. Ici avec le mot Ariege et là avec le mot Tubingen"
  conclusion = IIf(traduisons(texte1) = traduisons(texte2), "sont", "ne sont pas")
  MsgBox texte1 & vbCrLf & "et" & vbCrLf & texte2 & vbCrLf & conclusion & " la même chose"
End Sub
Private Function traduisons(ByVal t1 As String) As String
  Dim mesaccents As String, matrad As String, I As Integer, moncar As String
  mesaccents = "ÀàÁáÂâÃãÄäÅåÇçÈèÉéÊêËëÌìÍíÎîÏïÐðÑñÒòÓóÔôÕõÖöØøÙùÚúÛûÜüÝýÞþ"
  matrad = "AaAaAaAaAaAaCceeEeEeEeIiIiIiIiDoNnOoOoOoOoOoOoUuUuUuUuYybb"
    titi = Split(StrConv(t1, vbUnicode), Chr(0))
  traduisons = ""
  For I = 0 To UBound(titi) - 1
    moncar = titi(I)
    If Asc(moncar) > 127 Then
      If InStr(mesaccents, moncar) > 0 Then
        moncar = Mid(matrad, InStr(mesaccents, moncar), 1)
      End If
    End If
    traduisons = traduisons & moncar
  Next
End Function

Je ne vais faire à personne l'affront d'exposer ce qu'il convient de faire (ultra facile) pour, en plus, ignorer la casse ...

Autre chose ?

17/11/2008, 15h08
decondelite

Oui pas mal ton tr'uc. Je prends pas de chrono, mais je suppose que c'est effectivement plus efficace que les regex dont le codage interne est probablement bardé de boucles et de concaténations.

@ceweb:
Si tu ne comprends pas le fonctionnement interne des procédures de ucfoutu, c'est encore normal car il faut avoir une certaine expérience en manipulation de chaînes. Si qui est grave en revanche, c'est de ne pas comprendre comment on s'en sert, car c'est hyper-simple:
-comparons renvoie true si les 2 chaînes sont "très probablement" identiques (par exemple comparons("bâteau","bateau") renvoie true, mais comparons("été","oto") renverra lui aussi true)
-traduisons te renvoie la chaîne exacte sans accents de la chaîne donnée en paramètre (par exemple traduisons("bâteau") renvoie "bateau", traduisons("été") renverra "ete")

Le code d'utilisation de ces procédures, à la limite, ça peut être ce que tu veux. Tu n'es pas obligé d'utiliser Iif si tu ne comprends pas comment il s'en est servi.
17/11/2008, 16h56
Daranc

Ucfoutu
Y'a pas d'affront , je suis ce sujet par curiosité édificatrice .magnifique démonstration (j'ai rien compris 8O mais c'est grandiose :king:)
de la poésie pure : on n'a pas besoin de comprendre pour aimer

PS j'avais un doute pour suivre
je suis aller faire un tour ici

ça y est j'ai compris :yaisse2:
mais ça reste magnifique par la même je remercie pour le IFF dont j'ignorais l'existence est qui s'emploie comme le =si(condition,vrai,faux)
je ne supprime rien de mon message , il faut assumer son ignorance
17/11/2008, 17h40
ucfoutu

Citation:

Envoyé par Daranc

de la poésie pure : on n'a pas besoin de comprendre pour aimer

Bonjour, Daranc,

Mais il n'y a à mon sens que très peu de différences entre le développement et la poésie, la musique ou la peinture. Je dirais la même chose des mathématiques, d'ailleurs (au même rang, dans ce domaine, que le développement). Tous ces "arts" ne sont jamais rien d'autre que de l'expression (un peu) organisée.... :oops: