Recherche dynamique

jcf6464

XLDnaute Occasionnel

• 19 Novembre 2019

• #2

Bonjour Hell wheel et le forum

Regarde ce lien

Remplissage dynamique d'un ComboBox comme google

Pourtant que j'ai appliqué le même code opérationnel en changeant le nom de table et les variables d'appel, le code ne fonctionne pas pour une deuxième insta...

forum.excel-pratique.com

Bonne continuation

jcf

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Novembre 2019

• #3

Bonjour @Hell Wheel, @jcf6464,

• Avec un filtre avancé
• Avec un peu de code dans le module de la feuille "Feuil1"

VB:

Option Explicit
Const MaxLigne = 2000

Private Sub Quoi_Change()
   Range("D2") = "*" & Quoi & "*"
   Range("D6:D2" & MaxLigne).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("D1:D2"), Unique:=False
End Sub

 

Pièces jointes

• Hell Wheel- Filtre- v1.xlsm

  22.7 KB · Affichages: 13

Dernière édition: 19 Novembre 2019

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 19 Novembre 2019

• #4

Bonjour,
En l'absence de fichier ci joint une proposition...
A+ François

 

Pièces jointes

• fell1.xlsm

  19.8 KB · Affichages: 8

Vote positif 0 Vote négatif

H

Hell Wheel

XLDnaute Nouveau

• 19 Novembre 2019

• #5

Merci pour votre aide. Bone remarque de fanfan38, je vous joins le fichier.

Merci à vous.

 

Pièces jointes

• Liste clefs sites (test vba).xlsx

  43.6 KB · Affichages: 8

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 19 Novembre 2019

• #6

Bonjour,


Exemple de recherche intuitive type Google. La liste se réduit au fur et à mesure de la frappe des caractères.

Listes en cascade

Boisgontier

 

Pièces jointes

• Copie de DVSaisieIntuitiveComboBox-2.xls

  101 KB · Affichages: 19

Dernière édition: 19 Novembre 2019

Vote positif 0 Vote négatif

H

Hell Wheel

XLDnaute Nouveau

• 20 Novembre 2019

• #7

Merci Boigontier, je suis en train de m'inspirer de ce que tu as fait .
J'aurais peut être une ou deux questions, je regarde d'abord.

 

Vote positif 0 Vote négatif

H

Hell Wheel

XLDnaute Nouveau

• 21 Novembre 2019

• #8

Bonjour,
La Textbox2 est affecté aux valeurs d'une colonne, je voudrais l'affecter à une autre colonne, mais je n'y arrive pas, comment faire?



Merci pour votre aide

 

Dernière édition: 21 Novembre 2019

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 21 Novembre 2019

• #9

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormRechercheTextBoxListBoxBase0.xls

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormChoixColonneRechercheTextBox.xls

Boisgonntier

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Novembre 2019

• #10

Bonjour,

Une autre version avec un critère pour chaque colonne.

 

Pièces jointes

• Hell Wheel- Filtre- v2.xlsm

  62 KB · Affichages: 10

Vote positif 0 Vote négatif

H

Hell Wheel

XLDnaute Nouveau

• 22 Novembre 2019

• #11

Bonjour, malgré du temps passé dessus je n'arrive pas à changer l'affectation des texbox .

Lors de la "recherche passe accès poste";
La textbox 2 "Passe" m'affiche la valeur de la colonne "GMR" alors que je souhaiterais la colonne "Passe"
La textbox 3 "Badge" m'affiche la valeur de la colonne "SITE" alors que je souhaiterais la colonne "Badge"
La textbox 4 "Mis à jour le" m'affiche la valeur de la colonne "GMR" alors que je souhaiterais la colonne "Vérifié"

Pouvez-vous m'aider et aussi m'expliquer comment vous avez fait?

Je vous remercie de votre aide.

 

Pièces jointes

• RechercheMultiMotsMulticolonnes - Copie.xlsm

  86.3 KB · Affichages: 8

Dernière édition: 22 Novembre 2019

Vote positif 0 Vote négatif

jcf6464

XLDnaute Occasionnel

• 22 Novembre 2019

• #12

Bonjour Hell Wheel Mapommme et le forum
Change le code suivant copier coller à la place de l'autre

VB:

Private Sub UserForm_Initialize()
   Set f = Sheets("GCE HELP DESK CATEGORY MATRIX")
   Set Rng = f.Range("D9:F" & f.[D65000].End(xlUp).Row)
   TblTmp = Rng.Value
   Ncol = Rng.Columns.Count
   For i = LBound(TblTmp) To UBound(TblTmp)
     ReDim Preserve choix(1 To i)
     For k = LBound(TblTmp) To UBound(TblTmp, 2)
       choix(i) = choix(i) & TblTmp(i, k) & " * "
     Next k
   Next i
   Me.ListBox1.List = Rng.Value
End Sub

en espérant avoir répondu à tes souhaités
A+ jcf

 

Vote positif 0 Vote négatif

H

Hell Wheel

XLDnaute Nouveau

• 22 Novembre 2019

• #13

Merci de m'aider jcf6464.
J'ai remplacé le code mais ça ne fonctionne toujours pas.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Novembre 2019

• #14

Bonjour à tous ,

Voir le fichier joint ?

 

Pièces jointes

• Hell Wheel- Filtre- v3.xlsm

  83.3 KB · Affichages: 10

Vote positif 0 Vote négatif

jcf6464

XLDnaute Occasionnel

• 22 Novembre 2019

• #15

RE à vous tous

Tu dis

VB:

je n'arrive pas à changer l'affectation des texbox

mais la Maintenant la recherche ce fait sur les colonnes 4,5,6
Voir capture écran,


A+ jcf

 

Pièces jointes

• Capture.JPG

  53.9 KB · Affichages: 7

Vote positif 0 Vote négatif