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

Recherche intuitive dans zone de liste composée à partir de 2 colonnes d'une feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lumpy
  • Date de début Date de début

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 !

S'inscrire
L

lumpy

Guest
Bonjour,

J'ai un userform qui contient une zone de liste dont le contenu provient de 2 colonnes d'une feuille Excel (recherche de nom + prénom). Mon souci c'est que je souhaiterais que l'utilisateur puisse réaliser une recherche intuitive à partir de cette zone de liste, c'est-à-dire que l'utilisateur pourrait en commençant à saisir quelques lettres réduire petit à petit cette liste pour y trouver ce qu'il cherche. J'ai réussi à faire quelque chose qui fonctionne concernant la liste qui permet de rechercher le N° de client mais c'était plus facile car celle-ci n'était composée qu'à partir d'une seule colonne.

Cf. le fichier ci-joint (cliquer sur Go pour voir le formulaire). C'est ChoixNom_change qui me pose problème.

J'ai essayé plein de choses mais je n'y arrive pas avec les 2 colonnes.

Merci d'avance si vous avez une solution.
 

Pièces jointes

Trier par date Trier par votes
Re : Recherche intuitive dans zone de liste composée à partir de 2 colonnes d'une feu

Bonjour,

cf PJ

Code: 
Dim f, ligneEnreg, choix1(), tblBD()

Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  tblBD = Range("A2:G" & [A65000].End(xlUp).Row).Value      ' BD
  n = f.[A65000].End(xlUp).Row - 1
  ReDim choix1(1 To n)
  For i = 1 To n
   choix1(i) = tblBD(i, 1) & " " & tblBD(i, 2)
  Next i
  Call Tri(choix1, LBound(choix1), UBound(choix1))
  Me.ChoixNom.List = choix1
End Sub

Private Sub Choixnom_Change()
  If Me.ChoixNom.ListIndex = -1 And IsError(Application.Match(Me.ChoixNom, choix1, 0)) Then
   Me.ChoixNom.List = Filter(choix1, Me.ChoixNom.Text, True, vbTextCompare)
   Me.ChoixNom.DropDown
  Else
    ChoixNom_click
  End If
End Sub

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2021 Liste de validation de données à partir d'une table
Réponses
3
Affichages
466
Zdz16
  • Résolu(e)
Microsoft 365 Cohabitation des listbox avec des lignes "gelées"
Réponses
8
Affichages
288
fanch55
B
  • Question Question
Microsoft 365 Protection de zone de cellule selon utilisateur sur un fichier Excel
Réponses
2
Affichages
345
berta8683
B
  • Question Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
1 K
jeff1494
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
313
dgil37
D
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
547
PMG
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
333
nightswan
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
252
PRy
P
  • Résolu(e)
Microsoft 365 Recherche sur plusieurs Feuilles
2
Réponses
18
Affichages
726
lcouaci
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
350
MATLEA
M
L
  • Question Question
Microsoft 365 Manipuler les données XML à partir d'Excel
2
Réponses
19
Affichages
547
Loulou27
L
W
  • Résolu(e)
XL 2016 Écriture correcte d'un Transpose() avec FormulaLocal à partir de données d'une autre feuille
Réponses
6
Affichages
333
Webperegrino
W
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
769
Lu76Fer
J
  • Question Question
XL 2016 recherche d'une valeur en fonction d'une plage de données
Réponses
2
Affichages
351
jeff2318
J
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
191
AD74
A
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
697
SAMUAL_2023
S
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
387
fd.30
F
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
227
p'tit vieux
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
443
TooFatBoy
  • Question Question
Access Zone de liste déroulante filtrée
Réponses
1
Affichages
609
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…