Moteur de recheche probleme de selection de Ligne

[P4ps]

Bonjour à tous,

Je travaille actuellement sur cette macro mise en ligne par PierreJean il y a quelque temps de ça.

La macro ouvre une boite de dialogue demandant le mot a rechercher dans les autres onglets
Puis fait apparaitre le contenu des cellules sous forme de lien hyperlink contenant ce mot dans l'onglet recherche.

J'essaye de simplement faire apparaitre toute la ligne plutot que juste la cellule et je me casse les dents. Le lien hyperlink n'est pas forcement utile et je souhaite l'enlever.

Quelqu'un peut il m'aider?

 

[mromain]

Re : Moteur de recheche probleme de selection de Ligne

bonjour P4ps,

voici le code modifié (si j'ai bien compris) :

Sub recherche(mot)
ligne = 9
For Each ws In Sheets
If ws.Name <> "page d'ouverture" Then
With ws.Cells
    Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            [B][COLOR=Red]c.EntireRow.Copy Sheets("page d'ouverture").Cells(ligne, 1)[/COLOR][/B]
            ligne = ligne + 1
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
      trouve = True
    End If
End With
End If
Next ws
If Not trouve Then MsgBox ("Pas de " & mot & " trouvé dans ce fichier")

End Sub

a+

 

[P4ps]

Re : Moteur de recheche probleme de selection de Ligne

You are the king!

Un grand merci

 

[the09]

Re : Moteur de recheche probleme de selection de Ligne

Bonjour,
moi j'aimerai si possible rechercher que sur une feuille, et afficher le résultat dans un userform!
c'est possible???

merci