Sujet Précédent Sujet Suivant

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.



2 réponses

Réponse 1 / 2
eriiic
Messages postés
24430
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
11 août 2022
 7 109
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
24430
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
11 août 2022
 7 109
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
Réponse 2 / 2
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