recherche

sboub

XLDnaute Nouveau
Bonsoir, j'ai crée une feuille de calcul qui est assez importante. En colonne A j'ai des numeros de services je souhaite en quelque clic, car je dois etre rapide, trouver ce que je cherche. Je veux juste qu'on m'envoie à la ligne si j'indique que je recherche le numero de service P07 plutôt que de faire défiler et tomber dessus car j'ai plus de 400 numéros.
Merci d'avance pour vos reponses
 

don_pets

XLDnaute Occasionnel
Re : recherche

'llo,

Tu peux dans un premier temps mettre les filtres sur tes colonnes et ensuite tu crées un bouton de recherche avec comme code :

Code:
rep = InputBox("Que Recherchons nous ?")
    Columns("E:E").Select
    Cells.Find(What:=rep, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

Sheets("Ta_Feuil").Select
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=rep
ActiveCell.Offset(0, -1).Select
Selection.Copy

A adapter bien entendu,

Tchuss
 

Discussions similaires

Réponses
18
Affichages
756

Statistiques des forums

Discussions
312 492
Messages
2 088 931
Membres
103 984
dernier inscrit
maliko67