Discussion :

[BERRACHED SAID]

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

[BERRACHED SAID]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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