Inserer un ou plusieurs champs de recherche

[jathur]

Bonjour

Je cherche un moyen d’intégrer un champ de recherche dans mon tableau afin qu'en tapant le nom ou le prénom ou le numéro de telephone d'une cliente, seule les lignes correspondantes soit affichées afin de pouvoir les modifier, a savoir ajouter un achat.

Le fichier joint n'est qu'un exemple de quelques lignes mais a terme le fichier pourra vite atteindre des centaines de lignes et rendre ma tache plus rébarbative.

Je vous remercie par avance pour vos idées, votre aide ou vos conseils

Cordialement

 

[Hieu]

Salut,
une idée par macro :

Sub afficher()
Range("a1").select
ligne = Range("A5:I100").Find(What:=Range("l4"), After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Row

Rows("5:100").Hidden = True
Rows(ligne).Hidden = False
End Sub
Sub retour()
Rows("5:100").Hidden = False
End Sub

 

[jathur]

Merci pour la reponse rapide.

Je teste et reviens vers vous!

Cordialement

 

[jathur]

Malheuresement, cela ne fonctionne pas chez moi!

J'ai une erreur d'execution 13 - Incompatibilité de Type.

Encore merci

 

[JHA]

Bonjour à tous,

Un essai avec un filtre avancé

JHA

 

[Hieu]

Salut tous,
nouvel essai. Juste modifié la sélection, au début.

 

[jathur]

Merci a Hieu et JHA pour vos solutions.

Je transpose sur mon fichier intégral et vous tiendrais au courant ce soir.

Pour JHA, j'ai une petite erreur lorsque je fais

 

[jathur]

Merci à Hieu et JHA pour vos solutions.
Je transpose sur mon fichier intégral et vous tiendrai au courant ce soir ou demain.

Pour JHA, la commande " Effacer le filtre" génère une erreur.

 

[JHA]

Bonsoir à tous,

la macro se met en erreur quand il n'y a pas de filtre à effacer.
J'ai modifié la macro effacer.

JHA

 

[jathur]

Merci pour tout