1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Option Explicit
Private Sub CommandButton2_Click()
Dim fin&
If TextBox1 = "" Then Exit Sub
fin = Feuil1.Range("E" & Rows.Count).End(xlUp).Row + 1
Feuil1.Cells(fin, 5) = TextBox1: x = x + 1
TextBox1 = Feuil1.Cells(x, 1)
End Sub
Private Sub CommandButton1_Click()
Dim fin&
If TextBox1 = "" Then Exit Sub
fin = Feuil1.Range("C" & Rows.Count).End(xlUp).Row + 1
Feuil1.Cells(fin, 3) = TextBox1: x = x + 1
TextBox1 = Feuil1.Cells(x, 1)
End Sub
Private Sub UserForm_Initialize()
Dim i&, fin&
TextBox1 = Feuil1.Cells(1, 1)
x = 1
End Sub |
Partager