Private Sub ComboBox1_Change()
Dim i As Byte, C As Range
Set C = ActiveSheet.Cells.Find(What:=ComboBox1)
If Not C Is Nothing Then
With BDD1
.TextBox1 = C.Offset(0, -1).Value
.TextBox2 = C.Offset(0, 4).Value
.TextBox3 = C.Value
.TextBox4 = C.Offset(0, 1).Value
[COLOR=Green] '... CONTINUE POUR LES AUTRES TEXTBOXES[/COLOR]
.ComboBox2 = C.Offset(0, 3).Value
[COLOR=Green] '... ET COMBOBOXES[/COLOR]
End With
End If
[COLOR=Green] '... SUITE DE TON CODE[/COLOR]
For i = 1 To 20
Controls("TextBox" & i).Enabled = IIf(ComboBox1.ListIndex = -1, True, False)
Next i
For i = 2 To 9
Controls("ComboBox" & i).Enabled = IIf(ComboBox1.ListIndex = -1, True, False)
Next i
...