Private Sub ComboBox1_DropButtonClick()
Worksheets("ETAPE1").Select
Dim DerLgn0 As Long
With Sheets("ETAPE1")
DerLgn0 = .Cells(.Rows.Count, 6).End(xlUp).Row
Me.ComboBox1.List = .Range("F2:F" & DerLgn0).Value
End With
Application.ScreenUpdating = False
Worksheets("ETAPE1").Select
Dim L As Integer
Dim N As String
N = ComboBox1.Value
L = Range("F2:F65536").Find(N, Lookat:=xlWhole).Row
TextBox9.Value = Cells(L, 1)
ComboBox7.Value = Cells(L, 2)
ComboBox8.Value = Cells(L, 3)
ComboBox9.Value = Cells(L, 4)
TextBox1.Value = Cells(L, 5)
TextBox11.Value = Cells(L, 7)
TextBox2.Value = Cells(L, 8)
TextBox5.Value = Cells(L, 9)
TextBox6.Value = Cells(L, 10)
TextBox12.Value = Cells(L, 11)
TextBox16.Value = Cells(L, 12)
TextBox17.Value = Cells(L, 13)
End Sub
J'aurai une autre petite question cette fonction m'affiche une erreur
Je suis désolé mais je ne sais si mon fichier peut se retrouver sur internet