Remplir une TextBox à partir d'une ListBox

Hello,

Je débute sur VBA et j'avais une petite question.

J'ai une listbox dans un UserForm avec plusieurs choix que j'ai indiqué dans le RowSource. En dessous de cette Listbox se trouve une Textbox. J'aimerais que cette TextBox se remplisse automatiquement en fonction du choix que fait l'utilisateur dans la ListBox.

Auriez vous un code ou début de code pour ceci ? J'ai essayé avec un "If" dans le code d'initialisation de mon UserForm (PrivateSub UserForm_Initialize() ), là où j'ai mis le RowSource de ma ListBox mais ça ne fonctionne pas. Dois-je créé une nouvelle procédure ? Si oui, quel doit être son intitulé ?

Merci d'avance

Bonjour,

Un exemple ...

Private Sub ListBox1_Click()
   Me.TextBox1 = Me.ListBox1.List(Me.ListBox1.ListIndex)
End Sub

ric

Bonjour à tous,

une autre façon :

Private Sub ListBox1_Click()
   TextBox1.Value = ListBox1.Text
End Sub

A+

Super merci ça a marché !!!