1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Private Sub CommandButton1_Click()
Worksheets("Reception").Cells(i, 2).Value = Val(txtbc)
Worksheets("Reception").Cells(i, 3).Value = Val(txtxdatRecept)
Worksheets("Reception").Cells(i, 4).Value = Val(txtnom)
Worksheets("Reception").Cells(i, 5).Value = Val(txtcateg)
Worksheets("Reception").Cells(i, 6).Value = Val(txtdescrip)
Worksheets("Reception").Cells(i, 7).Value = Val(txtpu)
Worksheets("Reception").Cells(i, 8).Value = Val(txtqte)
End Sub
Private Sub Afficher(i As Integer)
With Worksheets("Reception")
frReception.txtbc.Text = .Cells(i, 2)
frReception.txtxdatRecept.Text = .Cells(i, 3)
frReception.txtnom.Text = .Cells(i, 4)
frReception.txtcateg.Text = .Cells(i, 5)
frReception.txtdescrip.Text = .Cells(i, 6)
frReception.txtpu.Value = .Cells(i, 7)
frReception.txtqte.Value = .Cells(i, 8)
frReception.lbtPT = .Cells(i, 9)
End With
End Sub |
Partager