RechercheV pour copie dans textbox

Le 28/02/2023 à 15:59

Bonjour à tous !

Je suis actuellement sur un fichier, avec une listbox dans un UserForm

(voir pj)

Lorsque je selectionne une ligne, dans Userform2.listebox1 , et que je clique sur "afficher profil" , j'ai mon userForm3 qui s'affiche

j'arrive à remonter des données (nom-prenom) et (n° demande) car elles sont isues de ma listbox

Me.TextBox1.Value = UserForm2.ListBox1.List(0, 4)
Me.TextBox3.Value = UserForm2.ListBox1.List(0, 0)

Mais pour mes autres textbox, les valeurs se trouve dans la feuille Dls_Active

Jer souhaitai donc passer par la rechercheV pour chercher ma donéne dans la feuille et la rapatrier dans mon userForm3

Formule actuelle qui ne fonctione pas =>

Me.TextBox3.Value = UserForm2.ListBox1.List(0, 0)
Dim Num_Dl As String
Num_Dl = Me.TextBox3.Value
'MsgBox (Num_Dl)
TextBox4.Value = Application.WorksheetFunction.VLookup(Num_Dl, (Worksheets("Dls_actives")), 13, False)

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

Je suppose que ma formule est mal ecrite?

Ou que ma methode n'est pas bonne?

Pourriez vous m'aider svp ?

3infos-demandes-quartil-test.xlsm (68.71 Ko)

Le 01/03/2023 à 03:20

Bonjour manoss76

Pour commencer, merci de mettre votre code entre balises SVP

Ensuite, je pense que vous devriez lire le chapitre sur les variables
https://www.excel-pratique.com/fr/vba/variables

Et pour finir,
cherchez sur le forum comment on remplit un USF, car vous allez au devant de gros soucis à utiliser vlookup pour chaque contrôle

A+

Le 01/03/2023 à 08:35

Merci pour le retour

j'arrive à créer ma variable , Num_Dl qui recupere la 1ere valeur que je selectionne dans ma ListBox

Mais je ne comprend pas comment rechercher cette valeur dans ma feuille, pour retrouver le numero de la ligne correspondant

Cdlt

Le 01/03/2023 à 09:55

je crois que j'ai trouvé, via le code suivant =

< Feuil1.Select
Range("B:B").Find(Num_Dl, , xlValues, xlWhole, , , False).Select
ActiveCell.Select
colonne = ActiveCell.Column
ligne = ActiveCell.Row
TextBox4.Value = Cells(ligne, "N").Value>

Cdlt

Le 01/03/2023 à 10:58

manoss76

Que dois-je faire pour que vous compreniez comment on dépose du code sur ce forum

Comme pour un enfant... étape par étape

1) Vous copiez votre code CTRL+C

2) vous cliquez sur le bouton