Re Mickaël, Laeti, le Forum
Disons que si vos codes sont écrits d'une manière cohérente, il n'est pas nécessaire de spécifier Value car c'est la propriété par défaut de ces deux Controls ActiveX (TextBox et ListBox)
Et donc ceci devrait suffir
Private Sub Listbox1_Click()
TextBox1 = ListBox1
End Sub
Attention pour
TextBox1 = ListBox1.Text
Car la propriété Text dans une ListBox ou ComboBox est plutot utilisé pour changer the selected row avec un Matching. Mais dans le cas présent qui nous interesse celà peut fonctionner avec Text.
Ensuite
Il est possible que ton problème provienne d'une sorte de "croisement d'évènements"...
Par exemple tu as dois faire attention aux évènements qui s'enchainent...
Private Sub ListBox1_AfterUpdate()
TextBox1 = "Toto"
End Sub
Private Sub Listbox1_Click()
TextBox1 = ListBox1
End Sub
Private Sub ListBox1_Change()
TextBox1 = ""
End Sub
Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = "Titi"
End Sub
Et ben que va-t'il y avoir dans la TextBox1.... Hi hi hi ... (Mdrrr) Je suis vache là !!!
Bon enfin j'ai mis ce qu'il fallait dans la Démo ci-jointe... Et çà fonctionne sur le Click des ListBox Respectives... Quoique à ce stade je ne vois pas encore l'utilité de faire reporter dans des TextBox la Sélection de ListBox...
Bon Fin de Journée
@+Thierry