Remplir automatiquement textbox et combobox à partir d'une Listbox

Bonjour à tous,

Je suis débutant en VBA et je suis bloqué sur un code pour mon projet.

En fait, j'ai un Userform2 qui remplie automatiquement (à travers des textbox et combobox) un Tableau1 contenant 4 colonnes, le Tableau1 est dans la feuille1.

J'ai ajouté sur la Userform2 une Listbox2 en mettant la propriété Rowsource = Tableau1. Je souhaite qu'en cliquant sur une ligne de la Listbox2 que les textbox et combox se remplissent automatiquement pour pouvoir modifier ou supprimer la ligne.

J'ai essayé le code ci-dessous mais ca ne marche pas. Merci pour votre précieuse aide.

Private Sub ListBox2_Click()

For i = 1 To 10
        UserForm2.Controls("textbox" & i) = ""
    Next

i = UserForm2.ListBox1.ListIndex

    Tb_Date.Value = Format(Userform2.ListBox2.Column(0, i), "dd/mm/yyyy")
    Cb_PartNum.Value = Userform2.ListBox2.Column(1, i)
    Cb_PartName.Value = Userform2.ListBox2.Column(2, i)
    Tb_Quantité.Value = Userform2.ListBox2.Column(3, i)

End Sub

Bonjour,

......J'ai essayé le code ci-dessous mais ca ne marche pas....

Avec ce genre de message on ne sait jamais s'il y a plantage ou si le résultat n'est pas celui attendu.....

A priori, sur l'userform il n'y a pas de ListBox1 (? ... et pas de classeur pour vérifier) alors qu'on utilise son ListIndex pour déterminer l'élément à lire dans la ListBox2

A+

Bonjour

Tu devrais joindre ton fichier...

Bye !

Merci pour ces premiers retours.

Je retire les données sensibles ou je les crypte ensuite je partage mon fichier.