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 Command1_Click()
Dim i As Integer
i = 1
For i = 1 To 1
Form1.grille.Rows = Form1.grille.Rows + 1
Form1.grille.Row = i
Form1.grille.TextMatrix(i, 1) = Text1.Text "test des 2 system colonne et ligne"
Form1.grille.Col = 2
Form1.grille.Text = txtCode.Text
Form1.grille.Col = 3
Form1.grille.Text = txtlib.Text
Form1.grille.Col = 4
Form1.grille.Text = txtQuantité.Text
Form1.grille.Col = 5
Form1.grille.Text = txtPTTC.Text
Form1.grille.Col = 7
Form1.grille.Text = Me.txtQuantité.Text * Me.txtPTTC.Text
Next i
i = i + 1
End Sub |
Partager