Userform flottant pour remplacer filtre auto

[sigma]

Bonsoir à tous,

j'ai un fichier de plusieurs milliers de lignes et je dois parfois me servir du filtre automatique pour rechercher une donnée précise, aucun problème de ce coté sauf que je me lasse un peu de l'ascenceur du filtre.
Y a t'il une possibilité d'avoir un user form flottant d'ou je puisse renseigner les données recherchées et qui me sélectionne la ligne voulue.

mon tri est en général de 2 lettres sur la colonne D et de 1 à 4 chiffres sur la colonne E.

Aucune urgence vitale mais si votre talent peut m'être utile, n'hésitez pas.

merci.

 

[JYLL]

Re : Userform flottant pour remplacer filtre auto

Bonsoir Sigma et le Forum,

Voici un peu de code pour avoir la recherche sur les deux zones, l'une après l'autre.

Sub RechercheValeur()
Colonne= InputBox("Dans quelle colonne s'effectue la recherche", "Colonne")
choix = InputBox("Valeur recherchée", "Recherche")
Range(Colonne &"1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=choix
End Sub

Bon test.

 

[papapaul]

Re : Userform flottant pour remplacer filtre auto

Tu peux aussi en proprietes mettre le usf en mode
showmodal = false, normalement il va suivre la selection
Enfin je crois

 

[sigma]

Re : Userform flottant pour remplacer filtre auto

bonjour,
merci de vos 2 réponses, je vais essayer de les appliquer.