VBA récupere valeur d'un ListBox vers un TextBox

[yusukens]

Bonjour,
Je débute en VBA et j'essaye de réaliser un gestionnaire de contact.

je ne vois pas ou est l'erreur

j'essaye de récuperer la valeur d'une ligne dans un ListBox pour le trasférer dans textBox après avoir cliqué sur un bouton

voici mon code si quelqu'un pourait m'aider a trouver l'erreur

Sub UserForm_Activate()
Dim LBListeClient
Dim RecupProfession

[COLOR=seagreen]'Récupère la dernière ligne[/COLOR]
RecupProfession = Range("O2").End(xlDown).Address

[COLOR=seagreen]'Afficher la liste dans le tableau[/COLOR]
With FormListeClient.LBListeClient
    .ColumnCount = 15 [COLOR=seagreen]'Nb de colonne[/COLOR]
    .ColumnHeads = True [COLOR=seagreen]'mettre le titre[/COLOR]
    .RowSource = "A2:" & RecupProfession [COLOR=seagreen]'De ou à ou[/COLOR]
    .ListIndex = 0
    .MultiSelect = fmMultiSelectSingle [COLOR=seagreen]'Permet pas la multi sélection[/COLOR]
End With

End Sub


Private Sub Bziou_Click()

Dim LigneChoisi

LigneChoisi = FormListeClient.LBListeClient.Column(0, LBListeClient.ListIndex)
FormListeClient.Tziou.Value = LigneChoisi

End Sub

 

[yusukens]

Re : VBA récupere valeur d'un ListBox vers un TextBox

C'est bon j'ai trouvé,
mon code est correcte
en fait dans mon form
j'ai mis un ListBox au lieu d'un textBox.