chercher une liste de mot,colorer,copier sur autre feuille

double-ien

XLDnaute Junior
Bonjour le forum

J'arrive à rechercher la présence d'un mot dans toute une feuille...(oui pas trop compliqué)

Cependant je ne sait pas comment rechercher une liste de mots(en nommant la liste par exemple),puis colorer la ligne où un des mots à été trouvé...(je ne trouve rien non plus sur le moteur de recheche du site)...est-il possible de le faire?

Je ferai bien une recherche pour chaque mot de ma liste mais le code est assez lourd et franchement pas beau..(vu la longueur de la liste)

Merci beaucoup

Bonne fin d'aprèm à vous:):cool:
 

roro69

XLDnaute Impliqué
Re : chercher une liste de mot,colorer,copier sur autre feuille

Bonjour voici un bout de code à essayer:
Sub recherche()
Range("?").Select 'ICI indique ta zone de recherche
Selection.Interior.ColorIndex = xlNone 'Sélection la plage indiquée pour mettre aucune couleur
Marecherche = InputBox("Saisir le nom à rechercher", "Recherche") 'Affiche Boîte de dialogue
If Marecherche = "" Then Exit Sub 'Sort de la procédure si rien n'ai saisi
With ActiveSheet.Cells
Set C = .Find(Marecherche, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Select
With Selection.Interior
.ColorIndex = 6 'Couleur jaune
.Pattern = xlSolid
End With
rep = MsgBox("Recherche suivante", vbYesNo, "Recherche")
If rep = vbNo Then Exit Sub
Set C = .FindNext(C)
If C Is Nothing Then
Adresse_encours = 0
Else
Adresse_encours = C.Address
End If
Loop While Not (C Is Nothing) And (Adresse_encours <> firstAddress)
End If
MsgBox "Texte non trouvé ou recherche terminée ou essayez une autre orthographe", vbInformation, "Recherche" 'Message si rien n'ai trouvé
End With
End Sub
 

double-ien

XLDnaute Junior
Re : chercher une liste de mot,colorer,copier sur autre feuille

Merci beaucoup

Je n'ai plus qu'à imposer
marecherche=Range("nom_de_ma_liste")

et à colorer la ligne
pour la copie je pense faire une recherche sur les lignes colorées et les copier ensuite


Merci encore
 

double-ien

XLDnaute Junior
Re : chercher une liste de mot,colorer,copier sur autre feuille

Merci beaucoup

Je n'ai plus qu'à imposer
marecherche=Range("nom_de_ma_liste")

Bon ça ne fonctionne pas pour la recherche d'un des mots d'une liste...il ne recherche qu'un seul des mots...le dernier de la liste...va comprendre pourquoi..

et à colorer la ligne
pour la copie je pense faire une recherche sur les lignes colorées et les copier ensuite


Merci encore
 

Discussions similaires

Statistiques des forums

Discussions
314 585
Messages
2 110 955
Membres
110 982
dernier inscrit
Ketbri