Moteur de recherche par USF

job75

XLDnaute Barbatruc

• 19 Septembre 2019

• #2

Bonsoir charlie2015,

chaelie2015 à dit:

dans le combobx1 : il affiche les item du tableau

Cliquez pour agrandir...

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

Bonne nuit.

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 19 Septembre 2019

• #3

job75 à dit:

Bonsoir charlie2015,

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

Bonne nuit.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Septembre 2019

• #4

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 19 Septembre 2019

• #5

Re
ok

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 19 Septembre 2019

• #6

job75 à dit:

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

Cliquez pour agrandir...

re
voici une proposition

 

Pièces jointes

• CHARLIE MOTEUR DE RECHERCHE par mot clé.xlsm

  187.3 KB · Affichages: 11

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Septembre 2019

• #7

Bonjour chaelie2015, le forum,

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

Bonne journée.

 

Pièces jointes

• CHARLIE MOTEUR DE RECHERCHE par mot clé(1).xlsm

  195 KB · Affichages: 23

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 20 Septembre 2019

• #8

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

 

Dernière édition: 20 Septembre 2019

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 20 Septembre 2019

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Septembre 2019

• #10

chaelie2015 à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• CHARLIE MOTEUR DE RECHERCHE par mot clé(1 bis).xlsm

  199 KB · Affichages: 9

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Septembre 2019

• #11

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

Voyez ce fichier (2) et ce code :

VB:

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

 

Pièces jointes

• CHARLIE MOTEUR DE RECHERCHE par mot clé(2).xlsm

  49.5 KB · Affichages: 19

Dernière édition: 20 Septembre 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Septembre 2019

• #12

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.

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 20 Septembre 2019

• #13

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 20 Septembre 2019

• #14

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

 

Pièces jointes

• CHARLIE MOTEUR DE RECHERCHE par mot clé job.xlsm

  626.3 KB · Affichages: 16

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Septembre 2019

• #15

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

 

Vote positif 0 Vote négatif