Inserer un ou plusieurs champs de recherche

jathur

XLDnaute Nouveau
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
 

Fichiers joints

Hieu

XLDnaute Impliqué
Salut,
une idée par macro :
VB:
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
 

Fichiers joints

jathur

XLDnaute Nouveau
Malheuresement, cela ne fonctionne pas chez moi!

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

Encore merci
 

jathur

XLDnaute Nouveau
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

XLDnaute Nouveau
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.
 

Haut Bas