Private Sub ComboBox2_Change()
TextBox1 = IIf(ComboBox2.ListIndex = -1, "", ComboBox2)
With Sheets("Données")
a = ComboBox2.ListIndex + 3
'TextBox9 = Sheets("Données").Range("E" & a)
TextBox2 = Range("B" & a)
TextBox3 = Range("J" & a)
TextBox4 = Range("K" & a)
TextBox5 = Range("L" & a)
TextBox6 = Range("I" & a)
TextBox7 = Range("H" & a)
TextBox8 = Range("M" & a)
TextBox9 = Range("E" & a)
TextBox10 = Range("D" & a)
TextBox12 = Range("F" & a)
TextBox13 = Range("G" & a)
End With
'Appel de la procédure créée.
Selection_ListBox
End Sub
Private Sub Selection_ListBox()
Dim i%
With Me
'ListBox Genre.
For i = 0 To .ListBox2.ListCount - 1
If .ListBox2.List(i) = .TextBox12.Text Then
.ListBox2.Selected(i) = True
Else: .ListBox2.Selected(i) = False
End If
Next i
'ListBox Nationalité
For i = 0 To .Listbox3.ListCount - 1
If .Listbox3.List(i) = .TextBox13.Text Then
.Listbox3.Selected(i) = True
Else: .Listbox3.Selected(i) = False
End If
Next i
End With
End Sub