Recherche de mots dans une liste

andykx - 16 févr. 2017 à 09:47 - Dernière réponse : michel_m 14939 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention
- 17 févr. 2017 à 09:10
Bonjour,

Alors voila j'ai une liste de mots dans ma feuille 1 et des phrases dans ma feuille 2.
Mon code VBA me permet de mettre les mots correspondants de la liste à la colonne 4. Cependant, j'aimerais faire une autre liste avec d'autres mots et dès qu'il les trouve il me les affiche dans la colonne à droite de la première.
Je sais pas si j'ai été clair je vous montre mon code :


Sub Cherche()
Dim Cel As Range
Dim Depart As String
Dim J As Long
Dim Colonne As Integer

  For J = 1 To Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
    Set Cel = Columns("B").Find(what:=Sheets("Feuil1").Range("A" & J), LookIn:=xlValues, lookat:=xlPart)
    If Not Cel Is Nothing Then
      Colonne = 4
      Depart = Cel.Address
      Do
        Cells(Cel.Row, Colonne) = Sheets("Feuil1").Range("A" & J)
        Colonne = Colonne + 1
        Set Cel = Columns("B").FindNext(Cel)
      Loop While Not Cel Is Nothing And Depart <> Cel.Address
    End If
  Next J
End Sub

Afficher la suite 

2 réponses

Répondre au sujet
ThauTheme 4338 Messages postés mardi 21 octobre 2014Date d'inscription 6 septembre 2017 Dernière intervention - 16 févr. 2017 à 12:21
0
Utile
Bonjour Andykx, bonjour le forum,

Tu as préféré faire une autre fil. Tu as eu raison, l'autre était tellement peu clair. Au mois dans celui-ci tu daignes nous proposer un code.
Code qui à mon avis ne peux pas fonctionner puisque tu ne spécifies pas l'onglet de la recherche :

Set Cel = Columns("B").Find(what:=Sheets("Feuil1").Range("A" & J), LookIn:=xlValues, lookat:=xlPart)

devrait être :
Set Cel = Sheets("Feuil2").Columns("B").Find(what:=Sheets("Feuil1").Range("A" & J), LookIn:=xlValues, lookat:=xlPart)


Après pour le reste : Cependant, j'aimerais faire une autre liste avec d'autres mots et dès qu'il les trouve il me les affiche dans la colonne à droite de la première.
je ne comprends pas que tu continues à être aussi peu clair !... Ça doit être chronique chez toi.
Elle est où ton autre liste p... de b... de m... (Purée de Banane Mexicaine évidemment...) ? dans quel onglet, dans quelle colonne ?
la colonne à droite de la première de quel onglet ?
Fait un effort sinon nous n'en ferons plus nous non plus !...

Commenter la réponse de ThauTheme
michel_m 14939 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention - 17 févr. 2017 à 09:10
0
Utile
BRAVO DE CREER DES DOUBLONS POUR LA MEME QUESTION !

TRISTE MENTALITE

Commenter la réponse de michel_m