Reperer des mots dans un fichier Excel

bonjour a tous,

j'ai un trés gros fichier excel et je voudrais :

• taper plusieurs mots et que ça les cherche dans le fichier excel
• que ça surligne la ligne
• qua ça efface les lignes qui ne contient pas le mot taper

par exemple si dans la feuille 2, je tape "pirate" en A1, je veux que ca surligne toutes les lignes de la feuille 1 qui possede le mot "pirate" et qui efface les autres.

est ce possible?

merci d'avance

Bonjour

Merci de joindre un fichier exemple (une dizaine de lignes)

Amicalement

Nad

Voila Nad,

j'ai mis dans le feuille 1 differentes citations, et dans ma feuille 2 j'ai mis "mot a rechercher",

je voudrais que dans la case d'a coté, ça cherche ce mot la dans la feuille 1, que ça surligne la ligne et que ca efface les autres

Bonsoir

Un essai :

Amicalement

Nad

bonjour Nad,

je te remercie beaucoup, c'est vraiment trés bien,

par contre, j'aurais voulu savoir si c'etait possible de faire "marche arriere", c'est a dire qu'une fois que j'ai tapé le mot puis appuyer sur le bouton "garde mot", je voudrais que l'on puisse revenir en arriere pour faire reapparaitres toutes les lignes.

que dois je rajouter dans la ligne des codes?

en tt cas je te remercie encore une fois enormement !

Bonjour

On peut masquer les lignes et appuyer sur un bouton pour tout ré-afficher :

Amicalement

Nad

super ! merci beaucoup !

je vais essayer de l'integrer dans mon fichier pour voir ce que ca donne et je reviens vers toi si j'ai un soucis !

merci merci !

-- Mer Fév 02, 2011 4:29 pm --

juste, si je veux l'appliquer a mon document,

il faut que je fasse deux boutons avec "bouton de commande" et que je leur affecte la macro :

Sub Mot()
Application.ScreenUpdating = False
Dim Cel As Range, Plage As Range
Dim Mot As String
Dim dlg As Long, i As Long

    dlg = ActiveSheet.UsedRange.Rows.Count
    Mot = Sheets(2).Range("A2").Value

For i = dlg To 1 Step -1
        If Not Cells(i, 1) Like "*" & Mot & "*" Then
        Cells(i, 1).EntireRow.Hidden = True
        End If
Next i

End Sub
Sub AfficheLignes()
Cells.EntireRow.Hidden = False
End Sub

c'est bien ca ?

merci de m'indiquer la demarche precise pour que je puisse l'affecter a mon document (confidentiel )