Recherche par mot clé [Résolu/Fermé]

Signaler
Messages postés
66
Date d'inscription
samedi 5 mars 2005
Statut
Membre
Dernière intervention
28 juillet 2015
 -
Messages postés
66
Date d'inscription
samedi 5 mars 2005
Statut
Membre
Dernière intervention
28 juillet 2015
 -
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.



Afficher la suite

2 réponses

Réponse 1 / 2
Messages postés
23691
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
29 novembre 2020
 6 501
Bonjour,

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

eric
Signaler
Messages postés
66
Date d'inscription
samedi 5 mars 2005
Statut
Membre
Dernière intervention
28 juillet 2015
 1
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
Signaler
Messages postés
23691
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
29 novembre 2020
 6 501
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
Réponse 2 / 2
Messages postés
66
Date d'inscription
samedi 5 mars 2005
Statut
Membre
Dernière intervention
28 juillet 2015
 1
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
Posez votre question