1. #1
    Futur Membre du Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    septembre 2014
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : septembre 2014
    Messages : 4
    Points : 6
    Points
    6

    Par défaut 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 :
    Nom : Capture d’écran 2017-07-14 à 06.04.29.png
Affichages : 32
Taille : 29,4 Ko

    Merci à tous pour implication

  2. #2
    Expert éminent

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    2 490
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 2 490
    Points : 6 474
    Points
    6 474
    Billets dans le blog
    19

    Par défaut

    Citation Envoyé par lesurfer Voir le message
    Bonjour,


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

    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
     
    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.
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    septembre 2014
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : septembre 2014
    Messages : 4
    Points : 6
    Points
    6

    Par défaut

    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 :-)

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Recherche par fréquence dans deux tableaux
    Par djibos dans le forum Débuter
    Réponses: 1
    Dernier message: 25/01/2016, 01h46
  2. [XL-2010] Associer des valeurs identiques dans deux feuilles différentes
    Par Yann91445 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 27/01/2014, 15h38
  3. [XL-MAC 2011] Identifier présence d'un mot identique dans deux cellules texte de Excel
    Par Marine bleu dans le forum Excel
    Réponses: 2
    Dernier message: 28/10/2012, 13h11
  4. Réponses: 2
    Dernier message: 30/04/2009, 13h46
  5. [Free Pascal] Détecter les lignes identiques dans deux tableaux de texte
    Par jeanmich dans le forum Free Pascal
    Réponses: 11
    Dernier message: 10/01/2009, 16h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo