Recherche par mot clé

Résolu/Fermé
benzi Messages postés 66 Date d'inscription samedi 5 mars 2005 Statut Membre Dernière intervention 28 juillet 2015 - 20 janv. 2011 à 21:08
benzi Messages postés 66 Date d'inscription samedi 5 mars 2005 Statut Membre Dernière intervention 28 juillet 2015 - 25 janv. 2011 à 19:33
Bonjour,

J'ai un tableau où il y a dans chaque colonne le nom, prénom, fonction, tel, fax etc...
Comme la liste est importante, je voudrai créer une recherche rapide. En tapant les 3 premières lettres ou un mot clé soit dans un userform ou une liste déroulante ou autre pour que cela sélectionne la ligne correspondante au nom.
Quelqu'un aurait-il la solution SVP? Merci D'avance.



A voir également:

2 réponses

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 216
Modifié par eriiic le 20/01/2011 à 23:26
Bonjour,

Un exemple en vba que tu pourras adapter à ton problème : exemple .
Alt+F11 pour aller dans l'éditeur vbe

eric
0
benzi Messages postés 66 Date d'inscription samedi 5 mars 2005 Statut Membre Dernière intervention 28 juillet 2015 1
22 janv. 2011 à 15:53
Bonjour eriiic,

Merci pour ta réponse, cela me convient et je pourrai l'adapter à d'autres sujets.
Par contre, j'aime bien comprendre, peux-tu m'expliquer à quoi correspondent les formules vba.
Pas la relation entre les textbox ou les commonbutton mais les formules types. Merci déjà pour ton aide.

Dan
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 216
24 janv. 2011 à 23:43
Bonsoir,

Difficile d'expliquer, le code est très court, sauf qu'il est répété plusieurs fois.
Sur une fonction ou une méthode que tu ignores tu peux faire F1 pour l'aide qui est bien faite.

Private Sub Tbx1_Change()
    Selection.AutoFilter Field:=1, Criteria1:="=*" & Tbx1.Text & "*", Operator:=xlAnd
End Sub

Active le filtre sur une saisie dans la textbox. Filtre sur '*le_texte_saisi*' (criteria1) c'est à dire si le texte est contenu dans la cellule. Si tu enlèves la première étoile tu filtrerais sur 'commence par le_texte_saisi'.

Private Sub Tbx1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Tbx1.Text = ""
    Selection.AutoFilter Field:=1
End Sub

Si double-clic dans la textbox, vide le texte et annule le filtre

eric
0
benzi Messages postés 66 Date d'inscription samedi 5 mars 2005 Statut Membre Dernière intervention 28 juillet 2015 1
25 janv. 2011 à 19:33
Bonsoir Eric,

C'est très sympa à toi, j'ai bien compris le fonctionnement en le faisant mais ces explications que tu donnes me permettent de cibler chaque détails.
Merci

Dan
0