Private Sub UserForm_Initialize()
Dim i As Integer
With ComboBox1
.ColumnCount = 2
.ColumnWidths = "130,130"
For i = 2 To Sheets("Auxiliaires").Range("A65536").End(xlUp).Row
.AddItem (Sheets("Auxiliaires").Cells(i, "A"))
.List(i - 2, 1) = Sheets("Auxiliaires").Cells(i, "B")
Next
End With
End Sub
Private Sub ComboBox1_Change()
Dim a As Integer
Application.ScreenUpdating = False
'sélection de la feuille Patient et plage du tableau
Set Maplage = Sheets("Auxiliaires").Range("A2:T" & Sheets("Auxiliaires").Range("A65536").End(xlUp).Row)
'recherche la valeur (nom patient) et importe les données correspondantes dans les textbox correspondants
'recherche (nom,plage,n°colonne)
'a = ComboBox1.ListIndex
Sheets("Auxiliaires").Select
Prenom.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 2, False)
Adresse.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 3, False)
CP.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 4, False)
Ville.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 5, False)
Tel.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 6, False)
Portable.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 7, False)
Mail.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 8, False)
TextBox5.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 9, False)
TextBox3.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 10, False)
TextBox15.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 11, False)
TextBox18.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 12, False)
TextBox12.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 13, False)
TextBox13.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 14, False)
TextBox16.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 15, False)
TextBox14.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 16, False)
TextBox15.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 17, False)
TextBox19.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 18, False)
TextBox20.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 19, False)
'TextBox21.Value = WorksheetFunction.VLookup(ComboBox1, Maplage, 20, False)
Range("A2:AF" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub