Combobox et listindex

Bonsoir le forum

je vais essayer d'être clair sans un fichier.

Je renseigne ma listbox par ce code

Me.ListBox1.AddItem .Cells(c.row, 1) & " " & .Cells(c.row, 2) & " " & .Cells(c.row, 3)

Puis Je voudrais récupérer dans une combo. la première colonne d'un item sélectionné de ma listbox comme ci dessous.

USF1.ComboBox1.value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)

Naturellement j'ai toute la ligne qui vient dans la combo.

Merci par avance

Bonsoir

Sans fichier

A tester

USF1.ComboBox1.value = Split(Me.ListBox1.List(Me.ListBox1.ListIndex, 0)) (0)

Ou plus simplement

USF1.ComboBox1.value = Split(Me.ListBox1) (0)

Bonsoir Banzai64

C'est magnifique. comme d'hab. tu me sauves des nuits blanches

interminables.

Merci et bonsoir

A+

Bonjour le fil, bonjour le forum,

Une autre approche :

Private Sub UserForm_Initialize()
Me.ListBox1.ColumnCount = 3
Me.ListBox1.List = Range("A1:C22").Value 'à adapter à ta plage de cellules c
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.ComboBox1.Value = Me.ListBox1.Column(0, Me.ListBox1.ListIndex)
End Sub

Bonjour Thauthème

Merci d'enrichir le fil

Avec l'approche que vous proposez, je serai amené à réinitialiser

ma listbox de la même manière que vous indiquer. Soit

Je vais essayer et je vous en dirai.

A+

Bonjour à vous,

J'ai au niveau de mon userform un ComboBox (10) et un TextBox (4) dont les valeurs se trouvent respectivement au niveau de la feuille "<DATA>", Range("J5:J16") et Range("K5:K16").

Pour le ComboBox :

Dim ws as worksheet
set ws = Worksheets("<DATA>")
Dim x As Range
    For Each x In ws.Range("J5:J16"),,
        With Me.ComboBox10
            .AddItem x.Value & " V"
        End With
    Next x

Mais pour le TextBox, je sèche - J'ai trouvé la commande Listindex, mais j'arrive pas à l'employer correctement - :

If Not ComboBox10.Value = "" Then
        Dim numLigne As Integer
        numLigne = ComboBox10.ListIndex
        TextBox4.Value = Cells(numLigne, 11) & " V"
End If

Ce que je veux c'est que lorsque je RUN l'userform, et dès que je choisisse une valeur parmi la liste "ComboBox10", la valeur correspondante s'affiche dans le "TextBox4".

Merci par avance de votre aide.