Private Sub btnModif_Click()
Dim i As Byte, x As Long
If cboNum.ListIndex = -1 Then Exit Sub
x = cboNum.ListIndex + 2
If MsgBox("Acceptez vous les modifications ?", _
vbQuestion + vbYesNo, "MODIFICATION") = 7 Then Exit Sub
With Ws
For i = 0 To UBound(tabloZtxt)
If Controls("T" & tabloZtxt(i)) <> "" Then .Cells(L, tabloZtxt(i)) = 1 * Controls("T" & tabloZtxt(i))
Next i
.Cells(L, 3) = cboMat
.Cells(L, 4) = IIf(CheckBox1, "Auto", T4)
.Cells(L, 21) = cboInt
.Cells(L, 22) = cboExt
.Cells(L, 35) = CboSup
.Cells(L, 38) = T38
End With
EffaceTout
IniUsf
End Sub