Recherche par mot clefs

bonjour à tous,

j'ai crée une petite base de données et je voudrais pourvoir avoir une macro me permettant d’effectuer une recherche par mot clefs.

C'est-à-dire une case ou lorsque je tape ma recherche il me sélectionne toutes les lignes contenant ce mot.

Je n’arrive pas à savoir comment procéder pour y parvenir.

D’avance merci

Bonjour,

Regarde ce lien --> recherche par mots clefs

Cordialement

Bonjour,

J’ai avancé sur le sujet mais je bloque encore,

J'ai réussi à crée une onction recherché mais il ne me sélectionne que le premier de la liste.

Je voudrai arriver que seul les lignes contenant les mots correspondants soi afficher.

Et t'il possible d'avoir un bouton pour qu'une fois la recherche effectué on puisse de nouveau afficher toutes les lignes?

Sub recherche()

Dim rngTrouve As Range

Dim strChaine As String

strChaine = InputBox("Nom à rechercher :")

Set rngTrouve = ActiveSheet.Columns("F").Cells.Find(what:=strChaine)

If rngTrouve Is Nothing Then

MsgBox "Pas trouvé"

Else

Cells.Find(what:=strChaine).Activate

End If

Set rngTrouve = Nothing

End Sub

merci d'avance,

re,

essaie avec ce code

Sub recherche()
Dim i As Integer
Dim strChaine As String

strChaine = InputBox("Nom à rechercher :")

With ActiveSheet
For i = 1 To .Range("F" & .Rows.Count).End(xlUp).Row
    If .Range("F" & i) <> strChaine Then Rows(i).Hidden = True
Next
End With
End Sub

Et pour réafficher les lignes, celui-ci

Sub montre()
Cells.Rows.Hidden = False
End Sub

si ok, lors de ta réponse clique sur le v vert à coté du bouton EDITER pour cloturer le fil

Cordialement

bonjour,

Merci Dan pour ta réponse.

Je rencontre un petit problème avec la première macro, quand je lui demande d'effectué une recherche toutes mes données sont effacés même le bouton pour réafficher toutes les lignes disparait. Je suis alors obligé de recrée le bouton de la macro afficher pour faire réapparaitre toutes mes lignes.

cordialement,

re,

florent50 a écrit :

Je rencontre un petit problème avec la première macro, quand je lui demande d'effectué une recherche toutes mes données sont effacés

Heu les boutons sont bien associés à la bonne macro ??

Si oui, tes données sont des chiffres, des lettres, majuscules ??

Au besoin place ton fichier avec données non confidentielles

A te relire

Bonjour,

Sinon tu peux mettre un filtre automatique sur la ligne de titres.

Et tu saisis ton mot dans 'Rechercher' de la liste déroulante.

eric