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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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