Private Sub ComboBox1_Change()
With Sheets("Base de données")
For a = 1 To .Range("A65536").End(xlUp).Row
If ComboBox1.Text = .Cells(a, 1).Value Then
TextBox2.Text = .Cells(a, 11).Value
TextBox1.Text = .Cells(a, 12).Value
TextBox3.Text = .Cells(a, 29).Value
TextBox4.Text = .Cells(a, 30).Value
TextBox5.Text = .Cells(a, 31).Value
TextBox6.Text = .Cells(a, 32).Value
TextBox7.Text = .Cells(a, 4).Value
TextBox8.Text = .Cells(a, 10).Value
TextBox9.Text = .Cells(a, 39).Value
TextBox10.Text = .Cells(a, 7).Value
TextBox11.Text = .Cells(a, 8).Value
TextBox12.Text = .Cells(a, 33).Value
TextBox13.Text = .Cells(a, 34).Value
TextBox14.Text = .Cells(a, 36).Value
TextBox15.Text = .Cells(a, 40).Value
TextBox16.Text = .Cells(a, 2).Value
TextBox17.Text = .Cells(a, 41).Value
TextBox18.Text = .Cells(a, 43).Value
End If
Next a
End With
End Sub
Private Sub ComboBox2_Change()
With Sheets("Base de données")
For a = 1 To .Range("A65536").End(xlUp).Row
If ComboBox2.Text = .Cells(a, 31).Value Then
TextBox2.Text = .Cells(a, 11).Value
TextBox1.Text = .Cells(a, 12).Value
TextBox3.Text = .Cells(a, 29).Value
TextBox4.Text = .Cells(a, 30).Value
TextBox5.Text = .Cells(a, 31).Value
TextBox6.Text = .Cells(a, 32).Value
TextBox7.Text = .Cells(a, 4).Value
TextBox8.Text = .Cells(a, 10).Value
TextBox9.Text = .Cells(a, 39).Value
TextBox10.Text = .Cells(a, 7).Value
TextBox11.Text = .Cells(a, 8).Value
TextBox12.Text = .Cells(a, 33).Value
TextBox13.Text = .Cells(a, 34).Value
TextBox14.Text = .Cells(a, 36).Value
TextBox15.Text = .Cells(a, 40).Value
TextBox16.Text = .Cells(a, 2).Value
TextBox17.Text = .Cells(a, 41).Value
TextBox18.Text = .Cells(a, 43).Value
End If
Next a
End With
End Sub