Moteur de recherche par USF

[chaelie2015]

Bonsoir Forum
je cherche a créer un moteur de recherche ;
1. dans le combobx1 : il affiche les item du tableau et dans le TextBox10 je saisie Mot clé a rechercher ensuite afficher les résultats au dessous dans USF
salutations

 

[job75]

Bonsoir charlie2015,

dans le combobx1 : il affiche les item du tableau

Les items ? Quels items ? Et ils vont servir à quoi ?

Bonne nuit.

 

[chaelie2015]

Bonsoir charlie2015,

Les items ? Quels items ? Et ils vont servir à quoi ?

Bonne nuit.

Bonsoir Job

Nbre.

Expéditeur

Objet du courrier de l'expéditeur

Pièce Jointe

Date d'arrivée à KDT

Référence du KDT

Affecté à KDT-T

Date d'enregistrement

Numéro d'enregistrement

l’entête du tableau de la feuille BdD Recherche
après si je sélectionne pièce jointe dans ComboBox1 et je saisie dans le TextBox10 : oui
il s'affiche toutes les ligne qu'ils ont dans dans la colonne Pièce joint OUI

 

[job75]

J'interviendrai quand vous aurez créé le code définissant la liste de ComboBox1.

 

[chaelie2015]

Re
ok

 

[chaelie2015]

J'interviendrai quand vous aurez créé le code définissant la liste de ComboBox1. 😉

re
voici une proposition

 

[job75]

Bonjour chaelie2015, le forum,

Voyez le fichier joint et le code de l'UserForm.

Bonne journée.

 

[chaelie2015]

Bonjour Job
c'est nickel, merci pour la réponse.
souci resolut
merci

 

[chaelie2015]

Re
Comment faire ICI pour faire une recherche dans une feuille masquée?
a+

 

[job75]

Comment faire ICI pour faire une recherche dans une feuille masquée?

Masquer la feuille est stupide mais bon il suffit de préciser la feuille dans UserForm_Initialize, voyez ce fichier (1 bis).

 

[job75]

Maintenant utiliser un UserForm n'est pas indispensable, perso je préfère filtrer directement la feuille.

Voyez ce fichier (2) et ce code :

Private Sub ComboBox1_GotFocus()
Dim a(1 To 9), i%
For i = 1 To UBound(a): a(i) = Cells(3, i): Next
ComboBox1.List = a
End Sub

Private Sub ComboBox1_Change()
TextBox1_Change
End Sub

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'RAZ
If ComboBox1.ListIndex = -1 Then Exit Sub
Dim col%, f$
col = ComboBox1.ListIndex + 1
Select Case col
    Case 1: f = "=ISNUMBER(SEARCH(""" & TextBox1 & """,TEXT(EXP(LN(RC1)),""000"")))"
    Case 5: f = "=ISNUMBER(SEARCH(""" & TextBox1 & """,TEXT(EXP(LN(RC5)),""jjj/jj/mmm/aaaa"")))"
    Case 8: f = "=ISNUMBER(SEARCH(""" & TextBox1 & """,TEXT(EXP(LN(RC8)),""jjj/jj/mmm/aaaa"")))"
    Case Else: f = "=ISNUMBER(SEARCH(""" & TextBox1 & """,RC" & col & "))"
End Select
[K4].FormulaR1C1 = f 'critère
[A3:I60003].AdvancedFilter xlFilterInPlace, [K3:K4] 'filtre avancé, plage modifiable
End Sub

 

[job75]

J'ai testé en filtrant un tableau de 60 000 lignes (recherche sur une colonne de dates) :

- fichier (1) ou (1 bis) avec UserForm => 0,4 à 0,8 seconde

- fichier (2) sans UserForm => 16 secondes, c'est le ShowAllData qui prend du temps.

 

[chaelie2015]

Re Job
super merci pour ces détails.
A+

 

[chaelie2015]

Bonsoir Forum,job
je souhaite généraliser le code de Job pour plusieurs ListBox est il possible ?
ci joint le fichier.
a+

 

[job75]

Je n'en vois pas l'intérêt mais continuez comme ça si vous voulez faire une usine à gaz.