XL 2019 Problème listbox vers textbox

[netparty]

Bonjour le forum

J'ai un petit soucis pour récupérer la valeur sélectionnée dans mon listbox.
J'aimerais récupérer la valeur sélectionnée du listbox dans un textbox de mon formulaire mais rien ne se passe.

Merci d'avance

 

[Dranreb]

Bonjour.
C'est essentiellement du à votre propriété MultiSelect <> 0
Il n'y a alors ni ListIndex ni Value ni Text.

 

[netparty]

Bonjour.
C'est essentiellement du à votre propriété MultiSelect.

Merci j'ai trouvé le problème et maintenant cela fonctionne

Bonne journée

 

[fanch55]

Bonjour,
ListBox1.MultiSelect = fmMultiSelectExtended
Vous ne pourrez jamais avoir d'événement Clic ni de ListBox1.Text.
Le listbox vous renverra toujours une liste d’éléments sélectionnés lors de l'événement Change.
Un exemple de code ci-dessous :

Private Sub ListBox1_Change()

    If ListBox1.ListIndex >= 0 Then
        Buffer = ""
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) Then
                Buffer = IIf(Buffer = "", "", Buffer & ",") & _
                            ListBox1.List(i)
            End If
        Next
        If Buffer <> "" Then Txtbox_Feuille = Buffer
    End If

End Sub

Ou si vous n'avez en fait besoin que d'un seul élément sélectionné,
Changez simplement tout ce qui est fmMultiSelectExtended par fmMultiSelectSingle .

 

[job75]

Bonjour netparty, Bernard, fanch55,

Etonnant que ce code évident n'ait pas été proposé :

Private Sub BP_RegrouperFeuille_Click() 'GO
If Txtbox_Feuille <> "" Then Sheets(Split(Txtbox_Feuille, " - ")).Select
End Sub

Private Sub ListBox1_Change()
Dim i&, x$
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then x = x & " - " & ListBox1.List(i)
Next
Txtbox_Feuille = Mid(x, 4)
End Sub

Private Sub UserForm_Initialize()
Dim s As Object
ListBox1.MultiSelect = fmMultiSelectMulti
For Each s In Sheets
    ListBox1.AddItem s.Name
Next
End Sub

A+