Fonction recherchev dans textbox sur listbox

  • Initiateur de la discussion Initiateur de la discussion poolinn22
  • 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 !

P

poolinn22

Guest
Bonjour,
Je suis débutante en VBA et j'ai un GROS SOUCI!!!
Je n'arrive pas à afficher directement le client quand celui ci est rempli dans une textbox (textbox2).
en gros, il me faudrait :
recherchev ( valeurdelatextbox ; tableauclients ; 3 ; 0)

Il faut que ce résultat soit inscrit dans une listbox à coté de cette textbox (listbox1)

Merci d'avance!
ci joint le fichier excel
 

Pièces jointes

Dernière modification par un modérateur:
Re : Fonction recherchev dans textbox sur listbox

Bonjour poolinn22,

La pièce jointe que tu viens d'ajouter est une bonne idée! ... l'enregistrer au format '.xls' aurait permis à d'autres de l'ouvrir.
Ceci dit, une question: la rechercheV ne donne, comme résultat que le premier élément trouvé ... pourquoi dès lors afficher le résultat dans un listbox? Soit il n'y a qu'un résultat à afficher et un textBox suffit ... ou alors il pourrait y en avoir plusieurs (à ce moment la rechercheV n'est pas adaptée).
 
Re : Fonction recherchev dans textbox sur listbox

Re-bonjour poolinn22,

Pour répondre à ta demande initiale, sur base du fichier fourni, tu pourrais écrire:
VB:
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox5.Text = Application.WorksheetFunction.VLookup(TextBox4.Text * 1, Sheets("anomalies").Range("B2:F100"), 3, 0)
End Sub
... le tout à adapter (je ne sais trop dans quelle feuille tu fais la recherche) Le textbox5, ci-dessus remplace la listbox initiale. Tu peux également utiliser la méthode Find (voir cette discussion récente) à la place de la fonction rechercheV
 
- 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éponses
10
Affichages
379
Réponses
7
Affichages
602
Réponses
11
Affichages
712
Retour