Recherche mots identiques dans deux tableaux différents

Version imprimable

14/07/2017, 06h14
lesurfer

1 pièce(s) jointe(s)

Recherche mots identiques dans deux tableaux différents

Salut à tous et à toutes,

Je vous explique mon problème.
Je possède deux tableaux dans un document word.
Je souhaite voir si des mots du tableaux (1) de ma colonne (1) correspondent avec un ou plusieurs mots du tableaux (2) de ma colonne (1).
Ainsi si je trouve un mot correspondant dans le tableau (2) alors sur la même ligne du mot trouvé dans la colonne (3), j'ajoute "trouvé".
Sinon j'ajoute rien.

J'ai déjà essayer quelques solutions mais sans succès avec la méthodes find pour rechercher.

Voici un exemple :
Pièce jointe 293993

Merci à tous pour implication ;)

Citation:

Envoyé par lesurfer

Bonjour,

Une piste avec ce code qui ne compare pas chaque mot mais le contenu de chaque cellule :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Option Explicit
 
Sub ComparerLesMots()
 
Dim DocEncours As Document
Dim I As Integer, J As Integer
 
    Set DocEncours = ActiveDocument
    With DocEncours
         For I = 1 To .Tables(1).Rows.Count
             For J = 1 To .Tables(2).Rows.Count
                 If InStr(1, .Tables(1).Cell(I, 1).Range.Text, .Tables(2).Cell(J, 1).Range.Text, vbTextCompare) > 0 Then
                    .Tables(2).Cell(J, 3).Range.Text = "Trouvé"
                 End If
             Next J
         Next I
    End With
    Set DocEncours = Nothing
 
End Sub

Pour la comparaison sur chaque mot, il faudrait ajouter une troisième boucle.

14/07/2017, 15h25
lesurfer

Un grand merci à toi Eric KERGRESSE.

ça m'a vraiment débloqué, je m'obstiner à essayer de passer avec la recherche find mais ca ne marcher pas.

Encore merci :-)