Récuperer lla valeur selection d'une listbox dans textbox

Bonjour à tous,

j'ai un petit problème que je n’arrive pas à résoudre. J'ai créé un userform avec une listbox et une textbox. Je voudrais que la valeur de ma textbox soit la valeur que j'ai sélectionné dans ma listbox. Pouvez-vous m'aider svp.

voici le code que j'ai utilisé mais ne marche pas :

Private Sub listbox1_click()

TextBox2.Value = SelectedItem

End Sub

Bonjour,

TextBox2.Value = ListBox1.List(ListBox1.ListIndex)

Cordialement.

Bonjour

Si tu ne joins pas ton fichier, comment te montrer ?

Bye !

Merci MFerrand. ça marche parfaitement bien. un deuxième problème :

je souhaite remplir des cellules avec la valeur d'une textbox mais le code que j'ai ecrit permet seulement de remplir la même cellule à chaque fois. le code que j'ai écris permet de remplir toujours la même cellule. Comment modifier mon code pour que cela me permet de remplir les cellules d'en dessous ? je vous en remercie d'avance

voici le code que j'ai écrit :

Private Sub CommandButton2_Click()

Range("A2").Value = TextBox1.Value

Range("B2").Value = TextBox3.Value

Range("C2").Value = TextBox2.Value

Range("D2").Value = DTPicker1.Value

UserForm2.Hide

End Sub

Que veux-tu dire ? Quelles cellules veux-tu servir, avec quoi ?

Il serait par ailleurs judicieux de renommer tes contrôles (nom générique suivi d'un numéro d'ordre dans l'ordre des colonnes à servir), de façon à pouvoir utiliser une boucle pour l'affectation.

Cordialement.

ce que je vopudrais c'est que une fois après avoir sélectionné une valeur dans la listbox, je voudrais que la valeur de la textbox et du DTpicker1 se retrouve sur une feuille. ci-joint un fichier qui représente à peu près le fichier que je souhaite obtenir.

Puisque tu utilises un tableau Excel, sers t'en !

Private Sub Cmbtok_Click()
    Dim n%
    With [Tableau2]
        n = .Rows.Count + 1
        .Cells(n, 1) = TextBox1.Value
        .Cells(n, 2) = DTPicker1.Value
    End With
End Sub

Cordialement.

Merci, j'ai esssayé ton code mais il il m'affiche - erreur d'exécution "424": objet requis - et ilsurligne la ligne

n = .Rows.Count +1. je ne comprend pas pourquoi.

Aurais-tu supprimé le tableau dans ton fichier ?

non pas suprimé mais je ne l'avais nommé.

Merci beaucoup pour ton aide MFerrand.