Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Hell Wheel

XLDnaute Nouveau
Bonjour à tous.
Je suis en train de réaliser un tableau de données, je souhaitais insérer au départ une barre de recherche dynamique, sauf que mon tableau fait pas loin de 1500 lignes.
Pour une recherche plus simple, est-il possible de faire une barre de recherche dynamique sur une autre feuille, qui au fur et à mesure que l'on écrit dedans, affiche les lignes correspondantes sur cette même feuille (en dessous de la barre de recherche), et au fur et à mesure qu'on précise la recherche, ça réduit la liste pour ne laisser au final que la ligne concernée?
Merci pour votre aide.
 
Dernière édition:
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

Dernière édition:
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?
Capture.JPG

Capture2.JPG


Merci pour votre aide 😉
 
Dernière édition:
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

Dernière édition:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
319
Réponses
3
Affichages
710
Retour