Bonjour le forum,
Je sollicite votre aide afin de m'aider à trouver la solution qui me bloque dans mon projet.
J'un un userform avec 2 listbox en cascades.
Je souhaiterai que lorsque j'effectue un double clic sur une ligne de ma seconde listbox, l'userform2 s'ouvre et que les textbox soit remplis avec les données correspondantes au choix que je viens d'effectuer.
A noter que dans ma listbox2 je ne fais apparaître que 3 colonnes (cela me sert de résumé), mais la feuille de données (Database) contient 10 colonnes de renseignements.
La dernière étant un lien d'image que je souhaiterai faire aussi apparaître dans mon userform2 lors de la sélection.
J'ai trouvé (sur ce forum ) un code qui permet de remplir des textbox présent sur le même userform que la listbox
Je vous joint mon fichier exemple et le lien du fil sur lequel j'ai trouvé ce code :
https://www.excel-downloads.com/thr...l-a-partir-dun-click-dans-une-listbox.131867/
J'espère avoir été assez clair dans ma demande.
Cordialement.
Je sollicite votre aide afin de m'aider à trouver la solution qui me bloque dans mon projet.
J'un un userform avec 2 listbox en cascades.
Je souhaiterai que lorsque j'effectue un double clic sur une ligne de ma seconde listbox, l'userform2 s'ouvre et que les textbox soit remplis avec les données correspondantes au choix que je viens d'effectuer.
A noter que dans ma listbox2 je ne fais apparaître que 3 colonnes (cela me sert de résumé), mais la feuille de données (Database) contient 10 colonnes de renseignements.
La dernière étant un lien d'image que je souhaiterai faire aussi apparaître dans mon userform2 lors de la sélection.
J'ai trouvé (sur ce forum ) un code qui permet de remplir des textbox présent sur le même userform que la listbox
Code:
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Compteur As Integer
For Compteur = 0 To (ListBox1.ListCount - 1)
If ListBox2.Selected(Compteur) = True Then
Me.TextBox10 = Me.ListBox1.List(Compteur, 1)
Me.TextBox2 = Me.ListBox1.List(Compteur, 2)
Me.TextBox8 = Me.ListBox1.List(Compteur, 3)
Me.TextBox3 = Me.ListBox1.List(Compteur, 4)
Me.TextBox4 = Me.ListBox1.List(Compteur, 5)
Me.TextBox5 = Me.ListBox1.List(Compteur, 6)
Exit Sub
End If
Next
End Sub
Je vous joint mon fichier exemple et le lien du fil sur lequel j'ai trouvé ce code :
https://www.excel-downloads.com/thr...l-a-partir-dun-click-dans-une-listbox.131867/
J'espère avoir été assez clair dans ma demande.
Cordialement.