[Toutes versions] Répétions & doublons

[acine]

Bonjour. Je suis primo-VBA, ultra-novice. Je cherche à identifier des répétitions ou doublons dans mes documents. J’ai trouvé sur les forums le code ci-dessous mais il ne marche pas. Le message : erreur de syntaxe. Lorsque je change « End if End if » en « End if », le message devient « Bloc Next sans for ». Merci de m’aider à corriger le code.

Cordialement.
Acine

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub trouveDoublons()
Const minLett = 3
Const nbMots = 150
Dim lm As New Collection
For Each w In ThisDocument.Words
v = Trim(w.Text)
g = InStr(1, v, Chr(146)) + InStr(1, v, "'")
If g > 0 And g < Len(v) Then v = Mid(v, g + 1)
If Len(v) > minLett Then
doubl = False
For Each m In lm
If m = v Then doubl = True
Next
If doubl Then
w.HighlightColorIndex = wdYellow
Else
lm.Add (v)
If lm.Count > nbMots Then lm.Remove (1)
End If End If
Next
End Sub

[Heureux-oli]

Salut,

Voilà le code indenté

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
Sub trouveDoublons()
Const minLett = 3
Const nbMots = 150
Dim lm As New Collection
 
For Each w In ThisDocument.Words
    v = Trim(w.Text)
    g = InStr(1, v, Chr(146)) + InStr(1, v, "'")
    If g > 0 And g < Len(v) Then v = Mid(v, g + 1)
    If Len(v) > minLett Then
        doubl = False
            For Each m In lm
            If m = v Then doubl = True
            Next
 
            If doubl Then
            w.HighlightColorIndex = wdYellow
            Else
            lm.Add (v)
                If lm.Count > nbMots Then lm.Remove (1)
            End If
    End If
Next
End Sub

[acine]

Bonjour Hereux-oil
Merci beaucoup, votre modification marche. Mais je constate que l’analyse est effectuée mot à mot, or j’aurais souhaité faire une analyse par groupe de mots (min : 3 mots; max: 6 mots). Est-il possible d’introduire une modification dans ce sens. Encore grand merci.

[Heureux-oli]

Salut,

Je n'ai regardé que la syntaxe du code.

Par groupe de trois mots, ce n'est pas gérable.
Ce code fait une boucle sur les mots d'un document qui forment une collection d'objets.

Un groupe de trois mots ou plus ne sera plus un objet.

Il fudrait revoir la totalité du code pour boucler sur les items et plus sur les objets.