Discussion :

[stefposs]

Salut,

j'ai:
- une table A qui contient un champ avec des noms du type "Alexandre Dummas"
- une table B qui contient des mots de la langue française avec deux champs : mots avec fautes et mots corrigés.
A_Corriger || Corrigé
DUMMAS || DUMAS

Et donc je cherche à savoir comment corriger dans ma table A les mots "corrigés" issus de la table B

De façon à obtenir dans la table A : "Alexandre Dumas"

Sachant que dans la table A il y a environ 300000 enregistrements et dans la table B environ 1000.

J'imagine qu'un module VBA serait bienvenue...
J'ai fouillé dans les archives mais je n'ai aps trouvé une réponse claire ou s'approchant de mon problème...

Merci de votre aide

[CinePhil]

Le problème est qu'il peut exister des quasi homonymes réels qu'il ne faut pas corriger.
Pour être clair, il pourrait exister vraiment un "Alexandre Dummas".
Donc il faut que la correction soit proposée mais pas automatique et contrôlée par l'utilisateur.

Dans SQL, il existe des fonction de recherche phonétique mais je ne sais pas si elles existent sous Access ou leur équivalent en Visual Basic.
Cherche une fonction du genre SOUNDEX.

[stefposs]

Salut,

le problème ne se pose pas là :-)
"Alexandre Dummas" c'était pour l'exemple, mais en fait dans la table des mots corrigés on a déjà identifiés clairement ceux qui pouvait poser problème et ceux dont on pouvait être sûr.

Par contre pour le VBA qui me permet de faire la manip que je décris, la je coince...

[argyronet]

Bonjour,

Si tu as une table qui contient effectivement Alexandre DUMMAS et qu'une autre contient exactement DUMMAS et DUMAS qui représente respectivement le mot mal orthographié et sa correction, tu dois pouvoir mettre à jour la valeur initiale...

Le problème, c'est que ça risque d'être long et que tout ne vas pas être forcément corrigé mais tu peux t'inspirer de cet exemple :

Regarde les miniatures Avant.jpg, Corrections.jpg, Après.jpg

L'ébauche du code (Très certainenment à peaufiner):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
Option Compare Database
Option Explicit
 
Private m_intCheckCount
 
Sub CheckSpeller()
Dim oDB                                     As DAO.Database
Dim oRSSource                               As DAO.Recordset
 
Dim SQLOccurences                           As String
Dim strCriteria                             As String
 
Dim strFieldValue                           As String
Dim aFieldValues()                          As String
Dim intUbound                               As Integer
Dim O                                       As Integer
 
    Set oDB = CurrentDb()
 
    SQLOccurences = "SELECT * FROM TableErreurs"
    Set oRSSource = oDB.OpenRecordset(SQLOccurences, 2)
    With oRSSource
        Do While Not .EOF
            strFieldValue = .Fields(0).Value
            aFieldValues = Split(strFieldValue, " ")
 
            intUbound = UBound(aFieldValues)
            If intUbound = 0 Then
                m_intCheckCount = 1
                UpdateOccurences oDB, strFieldValue, oRSSource, 1
            Else
                m_intCheckCount = m_intCheckCount + 1
                For O = LBound(aFieldValues) To UBound(aFieldValues)
                    strFieldValue = aFieldValues(O)
                    UpdateOccurences oDB, strFieldValue, oRSSource, intUbound - _
                        1
                Next
            End If
            .MoveNext
            m_intCheckCount = 0
        Loop
        .Close
    End With
    Set oRSSource = Nothing
    oDB.Close
    Set oDB = Nothing
End Sub
 
Private Sub UpdateOccurences(DB As DAO.Database, ByVal Occurrence As String, _
    RSSource As DAO.Recordset, CountCheck As Integer)
Dim SQLCorrections                          As String
Dim oRSCorrections                          As DAO.Recordset
Dim strCriteria                             As String
 
    SQLCorrections = "SELECT Occurence, Correction FROM TableCorrections WHERE "
    strCriteria = "Occurence LIKE '" & "*" & Occurrence & "*'"
    Set oRSCorrections = DB.OpenRecordset(SQLCorrections & strCriteria, 2)
    With oRSCorrections
        If .EOF = True And CountCheck >= m_intCheckCount Then
            With RSSource
                .Edit
                .Fields("EstCorrige") = False
                .Fields("Correction") = "Occurence non trouvée"
                .Update
            End With
        Else
            If Not .EOF Then
                With RSSource
                    .Edit
                    .Fields("EstCorrige") = True
                    .Fields("Correction") = oRSCorrections.Fields(1).Value
                    .Update
                End With
            End If
        End If
        .Close
    End With
End Sub

Je te conseille d'indexer tes tables...
Tu dois par ailleurs ajouter deux champs dans ta table à corriger :

• 1 champ EstCorrige (O/N)
• 1 champ Correction Texte

Ils permettront de ne pas écraser l'existant car la fiabilité reste dépendante du matching des requêtes...
Ensuite tu pourras faire un vrai UPDATE du fait que tu as la méthode...

Cela correspond t-il a ta demande ?

Argy

[stefposs]

Salut !

Ca me parait très bien et certainement plus élégant que le module VB que j'ai fait et qui n'a certainement pas la subtilité de me dire si l'occurence a été corrigée ou pas !

en plus, je ne sais pas pourquoi mais je suis sûr que ta solution va ête plus rapide. Avec le mien Access a mis environ 1h pour traiter 1000 mots dans le dictionnaire à checker/remplacer dans les 70000 sorties que j'ai dans ma liste de noms à corriger.

Je teste ça dès que possible !
Merci :-)