Problème d'affichage de listbox a textbox

Bonjour le forum

j'ai sur une feuille un listbox3 et 5 textbox qui son relier a chaque changement de la listbox3 ils affichent le contenu de celle-ci mais malheureusement je n'arrive pas le faire malgré plusieurs tentative de changement de code ainsi que le changement d’événement de l'objet rien a faire il faudrait que je click dessus pour qu'elle me donne le bon résultat mais le hic dans tous ça c'est que j'ai un autre Listbox1 relier aussi a d'autres textbox ça marche parfaitement.

voici le code que j'ai utlisé :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim i As Long 'efftext If Feuil1.ListBox3.ListIndex >= 0 Then i = Feuil1.ListBox3.ListIndex Feuil1.TextQ1.Value = Feuil1.ListBox3.List(i, 0) Feuil1.TextQ2.Value = Feuil1.ListBox3.List(i, 1) Feuil1.TextQ3.Value = Feuil1.ListBox3.List(i, 2) Feuil1.TextQ4.Value = Feuil1.ListBox3.List(i, 3) Feuil1.TextQ5.Value = Feuil1.ListBox3.List(i, 4) End If

---

j'ai penser a boucler sur les textbox et sur les items du Listbox pour avoir un résultat rien a faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim i As Byte Dim j As Long   If Feuil1.ListBox3.ListIndex >= 0 Then j = Feuil1.ListBox3.ListIndex For i = 1 To 5 'Boucle sur 5 Textbox nommés "Textbox1" à "Textbox4" pour y afficher 'les données contenues dans les cellules A1 à A4, dans la Feuil2. Feuil1.OLEObjects("TextQ" & i).Object.Value = Feuil1.ListBox3.List(i, j) Next End If

---

Merci d'avance

Salut

en tâtonnant j'ai contourner le problème autrement l'essentiel c'est que ça marche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub chargtextbx() Dim Plage As Range, cell As Range Dim Recherche As String, Adresse As String Dim Ligne As Integer, n As Integer Dim C As Range efftext n = 0 Recherche = Feuil1.Txtb1.Value Ligne = Sheets("bdCarr").Range("M" & "65536").End(xlUp).Row Set Plage = Sheets("bdCarr").Range("M" & "2:" & "M" & Ligne) With Plage Set C = .Find(Recherche, , xlValues) If Not C Is Nothing Then Adresse = C.Address Do If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then Feuil1.TextQ1.Value = C.Offset(0, 0) Feuil1.TextQ2.Value = C.Offset(0, 1) Feuil1.TextQ3.Value = C.Offset(0, 2) Feuil1.TextQ4.Value = C.Offset(0, 3) Feuil1.TextQ5.Value = C.Offset(0, 4) n = n + 1 End If Set C = .FindNext(C) Loop While Not C Is Nothing And C.Address <> Adresse End If   End With End Sub

---

bonne journée