Bonjour suis pas très bon en vba (suis peut-être nul) mais j'aimerai relier mon combobox à mon textbox
voici mon code
mais rien ne marche!
voici mon code
mais rien ne marche!
Code:
dim a()
Private Sub UserForm_Initialize()
a = Application.Transpose(Sheets("fiche").Range("e2:e42849").Value)
Me.ComboBox2.List = a
End Sub
Private Sub ComboBox2_Change()
If Me.ComboBox2.ListIndex = -1 And IsError(Application.Match(Me.ComboBox2, a, 0)) Then
Me.ComboBox2.List = Filter(a, Me.ComboBox2.Text, True, vbTextCompare)
Me.ComboBox2.DropDown
Me.TextBox2 = Sheets("fiche").Range("c" & Me.ComboBox2.ListIndex + 2)
Else
TextBox2 = ""
End If
End Sub
Dernière édition: