Private Sub UserForm_Initialize()
Dim I, J As Integer
Dim Ws As Worksheet, Lig As Integer
'tu charges le combobox2 dès l'initialize
ComboBox2.ColumnCount = 1 'Pour la liste Civilité
ComboBox2.List() = Array("Mr", "Mme")
For Lig = 0 To 364
Me.Date_Evènement.AddItem DateSerial(Year(Now), 1, 1) + Lig
Next
If Range("ListClients").Item(1, 1) <> "" Then Lig = Range("ListClients").Rows.Count Else Lig = 1
'tu charges le combobox1 dès l'initialize
Set Ws = Sheets("Client")
With Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("C" & J)
Next J
End With
End Sub
Private Sub ComboBox1_Change()
Dim Ligne As Long
Ligne = Me.ComboBox1.ListIndex + 2 'pour faire correspondre l'index du nom sélectionné avec son numéro de ligne dans la feuille Excel
With Sheets("Client")
'on peut remplir les champs tels que enregistrés dans la feuille
Me.ComboBox2 = .Range("B" & Ligne)
Me.NOM = .Range("C" & Ligne)
Me.ADRESSE = .Range("D" & Ligne)
Me.CP = .Range("E" & Ligne)
'à completer avec les autres champs
End With
End Sub