Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Moteur de recherche par USF

chaelie2015

XLDnaute Accro
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
 

Pièces jointes

  • CHARLIE MOTEUR DE RECHERCHE par mot clé.xlsm
    185.6 KB · Affichages: 12
Dernière édition:
Trier par date Trier par votes

chaelie2015

XLDnaute Accro
job75 à dit:
Bonsoir charlie2015,

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

Bonne nuit.
Cliquez pour agrandir...
Bonsoir Job
Nbre.ExpéditeurObjet du courrier de l'expéditeurPièce JointeDate d'arrivée à KDTRéférence du KDTAffecté à KDT-TDate d'enregistrementNumé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
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:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
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
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Résolu(e)
XL 2016 rechercher plusieurs valeurs a partir d'une seule moteur de recherche
Réponses
4
Affichages
161
Armisa
A
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la création de feuilles en fonction des données de la cellule U13 et une feuille type
Réponses
7
Affichages
277
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Automatisation Copie Lignes Feuilles selon leurs nom
Réponses
10
Affichages
249
chaelie2015
P
  • Question
XL 2019 VBA moteur de recherche
2
Réponses
21
Affichages
1 K
philgood54000
P
F
  • Question
Microsoft 365 VBA - moteur de recherche
Réponses
5
Affichages
340
fuioplde
F
J
  • Question
Power BI Erreur dans mesure pour une recherche par mot clé
2
Réponses
22
Affichages
421
JPh2309
J
C
  • Résolu(e)
XL 2021 Aide pour affichage colonne listbox après une recherche par textbox
Réponses
10
Affichages
262
Claudinedu13
C
E
  • Résolu(e)
XL 2013 Créer un moteur de recherche sur un fichier
2 3 4
Réponses
51
Affichages
4 K
Edmond_Dantes
E
M
  • Résolu(e)
Microsoft 365 Code de tri
2
Réponses
22
Affichages
321
Dudu2
P
  • Question
XL 2016 identifier chaine de caractère dans une cellule et ramener une donnée d'une table de correspondance
Réponses
5
Affichages
264
pmid20
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…