Private Sub ListBox1_Click()
For x = 1 To 6
If x < 5 Then
Controls("TextBox" & x) = Cells(Me.ListBox1.ListIndex + 4, x + 1)
Else
Controls("ComboBox" & x - 4) = Cells(Me.ListBox1.ListIndex + 4, x + 1)
End If
Next
End Sub
Private Sub CommandButton1_Click() 'bouton "modifier"
With ListBox1
For x = 1 To 6
If x < 5 Then
Cells(.ListIndex + 4, x + 1) = Controls("TextBox" & x)
Else
Cells(.ListIndex + 4, x + 1) = Controls("ComboBox" & x - 4)
End If
Next
End With
Unload Me
End Sub