Réponse acceptée !
salut,
t'as de la chance, chose qui n'est pas d'origine avec vb6, l'est en VBA, savoir la saisie semi-automatique.
Le combobox gère ceci.
Ensuite, à l'évènement initialize de ton userform, faut remplir le combobox (et donc supprimes ton TextBox1) :
Dim z as long
z = Range("A7").End(xlDown).Row
Combobox1.RowSource = "Feuil1!A7:A" & z
' remplace Feuil1 par le bon nom de ta feuille contenant les données.
Ensuite, dans l'évènement change du Combobox1 :
TextBox2.Text = Cells(Combobox1.ListIndex + 7, 2)
TextBox3.Text = Cells(Combobox1.ListIndex + 7, 3)
TextBox4.Text = Cells(Combobox1.ListIndex + 7, 4)
TextBox5.Text = Cells(Combobox1.ListIndex + 7, 5)
ets...
En gros, ListIndex c'est la position de l'item choisi, en base 0 (cad que le premier élément choisi et le n°0, le 2nd élément = N°1, etc)
Tes première données sont a partir de la ligne 7, Donc 7 + ListIndex = le numéro de la ligne dans Exce contenant les données à afficher.
Suffit de lire en affectant le bon numéro de colonne (second paramètre de l'objet
Cell)
@++
( Nouveau forum : Exclusivement Office & VBA