Private Sub UserForm_Initialize()
Set f = Sheets("BD")
tblBD = Range("A2:G" & [A65000].End(xlUp).Row).Value ' BD
n = f.[A65000].End(xlUp).Row - 1
ReDim choix1(1 To n)
For i = 1 To n
choix1(i) = tblBD(i, 1) & " " & tblBD(i, 2)
Next i
Me.ChoixNom.List = choix1
End Sub
Private Sub Choixnom_Change()
If Me.ChoixNom.ListIndex = -1 And IsError(Application.Match(Me.ChoixNom, choix1, 0)) Then
Me.ChoixNom.List = Filter(choix1, Me.ChoixNom.Text, True, vbTextCompare)
Me.ChoixNom.DropDown
Else
ChoixNom_click
End If
End Sub
Private Sub ChoixNom_click()
'on récupère tous les champs
For i = 1 To UBound(choix1)
If tblBD(i, 1) & " " & tblBD(i, 2) = ChoixNom Then
ligneEnreg = i
Me.Controls("TextBox1") = tblBD(ligneEnreg, 1)
Me.Controls("TextBox2") = tblBD(ligneEnreg, 2)
For k = 3 To 7
Me.Controls("TextBox" & k) = tblBD(ligneEnreg, k)
Next k
End If
Next i
End Sub