Completer textbox avec combo

Bonsoir

je débute avec vba, et autant bidouiller du code déjà fait ça va, mais en créer ça se complique.

j'ai 3 colonnes sous excel et je voudrais selon le choix de la combobox remplir les 2 textbox a coté comme dans le tableau

j'ai regardé mais souvent seule la combo provient du tableau l'autre a coté est deja entrer dans le code

si A choisi indiqué 1 et T1 etc...

merci de votre aide

Bon après quelques nouvelles recherches j'ai trouvé ceci, et cela fonctionne.

mais cela est limité.

en effet j'ai renseigné rowsource hors le tableau risque de grossir.

je pense qu'il faut utiliser for i mais quand je test j'ai des erreurs

pouvez vous optimiser cet exemple

merci

Salut tihneeos,

un double-clic sur la feuille ouvre l'Userform...

Private Sub UserForm_Activate()
'
With Sheets("Feuil1")
    Me.ComboBox1.List = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
End With
'
End Sub

Private Sub ComboBox1_Change()
'
With Sheets("Feuil1")
    Me.TextBox1.Text = .Cells(Me.ComboBox1.ListIndex + 1, 2)
    Me.TextBox2.Text = .Cells(Me.ComboBox1.ListIndex + 1, 3)
End With
'
End Sub

Bon courage! VBA est passionnant!

A+

Super encore merci, je vais faire mon mix sur mon projet

merci, merci, merci

Bonjour

une autre façon plus simple a voir

Private Sub UserForm_Activate()
'
    With Sheets("Feuil1")
        Me.ComboBox1.List = .Range("A1:C" & .Range("A" & Rows.Count).End(xlUp).Row).Value
    End With
'
End Sub

Private Sub ComboBox1_Change()
'
    TextBox1.Value = ComboBox1.Column(1)
    TextBox2.Value = ComboBox1.Column(2)
'
End Sub

A+

Maurice

en effet code allégé, ca me va encore miex

encore merci pour votre aide, j'en apprend tous les jours