Faire correspondre une textbox en fonction d'une listbox

Bonjour !

Après avoir cherché sur le forum une réponse à mon nouveau problème, il me semble qu'il n'existe pas de réponse à mon problème.

Dans mon userform, j'ai une textbox qui, après saisi, alimente une listbox. Puis j'ai une troisième textbox avec laquelle je n'arrive pas à mes fins.
En effet, je souhaite faire apparaitre dans cette textbox la valeur correspondant à ma ligne sélectionnée dans ma listbox. Cette valeur se trouve sur la même ligne, mais à la colonne d'avant.

Du coup, j'ai essayé plusieurs façons de coder pour dire que dans ma textbox, il doit apparaitre la cellule (0,-1) du selectitem de ma listbox mais ca marche pas...

Code:

---

1 2 3

Private Sub TextBox23_Change() Texbox23.Value = ListBox2.SelectedItem.cell(0, -1).Value End Sub

---

Quelqu'un aurait une idée ?

Bonjour,

Ça dépend comment est générée la liste de la listbox.
Certains vont lister les éléments d'une colonne, ligne par ligne, et on peut alors retrouver l'item en utilisant l'index de l'item choisi de la listbox versus la ligne de la feuille.

Dans d'autres cas, la liste peut être chargée différemment (triée, sans doublon,...) et il faut faire une recherche (Ctrl-F ou Find en VBA) sur la feuille pour trouver la ligne de l'item.
Une fois la ligne trouvée, il est simple d'aller chercher d'autres items sur celle-ci.

Disons que ton item est en colonne C

Code:

---

1 2 3 4 5 6 7 8

Private Sub ListBox1_Click() Dim Rng As Range Set Rng = Columns("C").Find(ListBox1.List(ListBox1.ListIndex), LookIn:=xlValues, LookAt:=xlWhole) If Not Rng Is Nothing Then MsgBox "L'item a été trouvé sur la ligne " & Rng.Row Textbox1 = Range("B" & Rng.Row) End If End Sub

---

Bonjour parmi !

Merci pour votre réponse, elle marche ! J'ai cependant omis de vous exposer un détail. Ma listbox est alimentée en fonction de 3 tableaux, 2 se situant sur une feuil1 et l'autre sur une feuil2. Coder en écrivant Colonne "c" pour faire correspondre ma textbox à la colonne "b" fonctionne mais que pour un seul de mes trois tableaux.

Mon tableau1 fonctionne, il se trouve sur la feuil1, les données sont colonnes B (listbox) et celles qui apparaissent sont colonnes A (textbox).
Mon tableau2 ne fonctionne pas, il se trouve sur la feuil1, mais les données sont colonnes G et celles qui doivent apparaitre sont colonnes F.
Mon tableau3 ne fonctionne pas, il se trouve sur la feuil2, mais les données sont colonnes B et celles qui doivent apparaitre sont colonnes A.

N'est il pas possible d'écrire un code avec l'idée suivante:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ListBox2_Click() Dim Rng As Range Set Rng = Columns.Find(ListBox2.List(ListBox2.ListIndex), LookIn:=xlValues, LookAt:=xlWhole) If Not Rng Is Nothing Then   TextBox23 = Range("Columns-1" & Rng.Row) End If End Sub

---

Bien cordialement,

Je n'aime pas les Select/Selection, mais bon...
Ça pourrait se faire ainsi

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub ListBox2_Click() Dim Rng As Range   Sheets(Array("Feuil1", "Feuil2")).Select Cells.Select Set Rng = Selection.Find(ListBox2.List(ListBox2.ListIndex), LookIn:=xlValues, LookAt:=xlWhole) If Not Rng Is Nothing Then MsgBox "L'item a été trouvé sur la ligne " & Rng.Row & " de la feuille " & Rng.Parent.Name TextBox1 = Sheets(Rng.Parent.Name).Cells(Rng.Row, Rng.Column - 1) End If End Sub

---

Bonjour !

Je ne sais pas pourquoi le principe de votre code ne vous plait pas trop mais en tout cas, il marche parfaitement !

Je vous remercie pour votre aide !

Cordialement,